Select Code to Download

    /foo(.*?)(foo|bar)/  &&  "bar" ne $2

    /foo(.*?)foo/  &&  $1 !~ /bar/

Benchmark: running japhy, obvious, tilly, and tye,
each for at least 3 CPU seconds (sorted fastest to slowest)...
...
     tilly:  3.41 CPU @ 33.43/s (n=114)
       tye:  3.29 CPU @ 20.06/s (n=66)
     japhy:  3.02 CPU @ 10.60/s (n=32)

#!/usr/bin/perl -w

...
    tilly => sub { map tilly(), @pat },
    japhy => sub { map japhy(), @pat },
} );