Select Code to Download

use strict;
my $str='abc%def%.%';
...
print "str: $str\n";
print "pstr: $pstr\n";
print "pcount: $pcount\n";