Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $s (qq{\t     \t  \t    \t }, '1000001001000010', 'qpppppqppqp
+pppqp') {
...
'                                ' -> 'AB'
'1000001001000010' -> 'AB'
'qpppppqppqppppqp' -> 'AB'