Help for this page

Select Code to Download


  1. or download this
    my $pat = qr/a/p;
'aaaa'  =~ /$pat/g or die;
print "MATCH=[${^MATCH}]\n";