Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s1 = 'foobarfeefiefoefum';
...
B: pos in $s2 '123456789' after successful match == 6
C: pos in $s1 'foobarfeefiefoefum' after successful match == 15
D: pos in $s2 '123456789' still == 6