Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $rs1 = '(?:(?-s).*)';
...
$rx2: (?^msx: ((?:.*)) (.*) )
from $rx2:  $1 'wig
WAG'  $2 ''