Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $string (qw(abcdef ABCDEF xyzzy)) {
...
from 'abcdef' got 'cde'
from 'ABCDEF' got 'ABC'
from 'xyzzy' got 'nothing'