Select Code to Download

>perl -wMstrict -le
"my $raw = '+fo\o*@P@*b\ar+';
...
(?msx-i:\+fo\\o\*\+([0-9]+)\*b\\ar\+)
'123 +fo\o*+987*b\ar+ 456'
'987'

>perl -wMstrict -le
"my $sq = 'start \ \\ \' stop';
 print qq{'$sq'};
"
'start \ \ ' stop'