Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = '54W';
...
 print 'match' if $s =~ m{ (?=4) . W }xms;
"
match