Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"my $string = 'abcdef';
...
   if $string =~ m{ ($pattern) }xms;
"
matched 'd' at offset 3