Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $s (qw(Y Z AA  ZY ZZ AAA  ZZY ZZZ AAAA)) {
...
'ZZY' -> 'ZZZ'
'ZZZ' -> 'AAAA'
'AAAA' -> 'AAAB'