Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -lw
use strict;
# [id://735593]
...
} else {
  print "no match in \$OPRegex";
}

Select or download this

perl  F:\_wo\pl_test\735593.pl
$regex matches: 1 and a.gif
no match in $OPRegex