Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
{
    qr{ ^ \s* $_[0] \s* $ }x;
}

Select or download this

23:06 >perl 1402_SoPW.pl
bar: match
foo: no match

23:06 >