Select Code to Download

>perl -wMstrict -le
"my $s = qq{pl\n};
...
 print 'match with /s' if $s =~ /p.{2,6}/s;
"
match with /s