Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl -l

...
    my %ref_char = map { $_ => 1 } grep { /\p{Alpha}/ } split '' => $r
+ef;
    join '' => grep { ! $ref_char{$_} } split '' => $src;
}

Select or download this
```
CLI T Y ND
ab1 de1
```