my $di = do "data/digraphs-rfc.inc.pl"
or warn "official digraphs not included for comparison: ", $@ // $!;
my $di = do "data/digraphs-rfc.inc.pl"
or warn "official digraphs not included for comparison: ", $@ // $!;
for (readline) {
my ($mnem, $chr) = m{^([!"%'-Z_a-z]{2}) (.)} or next;
warn("$mnem already defined"), next if defined $di->{$mnem};
for (readline) {
my ($mnem, $chr) = m{^([!"%'-Z_a-z]{2}) (.)} or next;
warn("$mnem already defined"), next if defined $di->{$mnem};