C:\test>perl -MMy::Filter -e"$s='abc'; print 'ok' if $s =~ m[b]; print My::Filter::report();"
ok1 trial of b
 (0s total)

C:\test>