Help for this page

Select Code to Download


  1. or download this
    >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'
  2. or download this
    >perl -wMstrict -le
"my $sq = 'start \ \\ \' stop';
 print qq{'$sq'};
"
'start \ \ ' stop'