Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
   print "$_\n" if !(tr/ABC//c);
}
# Prints: ABCAAAABBBCCCCCAAABBBCCC

Select or download this

my $standard='ABCAAAABBBCCCCCAAABBBCCC';

...
#A98797BqrtoiquyrtoCafdgagfd
#change to "not" of these: (!/[^$unique_letters]/);
#to get: ABCAAAABBBCCCCCAAABBBCCC