package Demo_REM;
$VERSION = '0.01';
use Filter::Simple;
use Regexp::Common;
FILTER_ONLY
regex => sub { print "1a: $_\n"; s/\!\[/[^/g; print "1b: $_\n" },
all => sub { print "1c: $_\n" },
regex => sub { print "2a: $_\n"; s/%d/$RE{num}{int}/g; print "2b: $_\n" },
all => sub { print "2c: $_\n" },
regex => sub { print "3a: $_\n"; s/%f/$RE{num}{real}/g; print "3b: $_\n" },
all => sub { print "3c: $_\n" };