#! perl -slw
use strict;
use Benchmark qw[ cmpthese ];
use List::Util qw[ shuffle ];

our @terms = qw[
    the quick brown fox jumps over the lazy dog
];

our $re = join'', map "(?=^.*$_)", @terms;
#$re = qr/$re/;

our @lines = map join( ' ', shuffle @terms), 1 .. 100;
push @lines, ( 'every good boy deserves food' ) x 100;

our( $a, $b ) = (0) x 2;
cmpthese -1, {
    a=>q[ /$re/ && ++$a for @lines; ],
    b=>q[ for my $str ( @lines ) { !grep( $str !~ /$_/, @terms) && ++$b; } ],
};

print "$a:$b";

__END__
C:\test>junk48
    Rate     b     a
b 82.7/s    --  -97%
a 2632/s 3082%    --
389700:12000