Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
"my $s = 'xxxx yy zzzzz xxxx qqq xxxx yy zzzzz xxxx qqq';
...
(?^msx: \b \w{5} \b .+? \b \w{3} \b )
'zzzzz xxxx qqq'
'zzzzz xxxx qqq'