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

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

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

for( 1 .. 10) {
    my $input = join ' ', shuffle @terms;
    $input =~ $re and print "$input matched";
}

__END__
C:\test>junk48
quick brown the dog over fox lazy jumps the matched
the dog over jumps the quick lazy brown fox matched
jumps brown fox lazy quick the over dog the matched
jumps brown dog over the fox lazy the quick matched
over dog jumps fox the brown the lazy quick matched
dog fox lazy the the quick over brown jumps matched
lazy over brown dog quick the fox jumps the matched
jumps fox quick brown the over lazy dog the matched
over dog the lazy jumps quick brown fox the matched
dog over lazy quick the the jumps brown fox matched