package Demo2b;
$VERSION = '0.01';
use Filter::Simple sub {
print "[$_]\n";
s/(\$[a-z])/\L$1/g;
};
1;
package Demo2b;
$VERSION = '0.01';
use Filter::Simple sub {
print "[$_]\n";
s/(\$[a-z])/\L$1/g;
};
1;
::
::
::
