Help for this page

Select Code to Download

Select or download this

#! usr/bin/perl
use warnings;
...
{
   print "Match $expr: '${$expr}' at position ($-[$expr],$+ [$expr])\n
+";
}