#! 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)[ 1 .. 5 ];
    my @found = $input =~ $re;
    $_ //= 'n/a' for @found;
    print "Found [ @found ]\nin:'$input'";
}

__END__
C:\test>junk48
Found [ the n/a n/a fox n/a over the lazy dog ]
in:'fox over lazy the dog'
Found [ n/a n/a brown fox n/a over n/a lazy dog ]
in:'fox lazy dog brown over'
Found [ the quick brown fox n/a n/a the n/a dog ]
in:'the quick dog fox brown'
Found [ n/a n/a brown fox jumps over n/a lazy n/a ]
in:'brown lazy over jumps fox'
Found [ the quick brown n/a jumps n/a the lazy n/a ]
in:'lazy the quick brown jumps'
Found [ the quick n/a n/a jumps n/a the n/a dog ]
in:'dog quick the the jumps'
Found [ n/a quick brown fox jumps n/a n/a n/a dog ]
in:'fox jumps quick brown dog'
Found [ the n/a brown n/a n/a over the lazy dog ]
in:'over lazy the dog brown'
Found [ the n/a brown fox jumps n/a the n/a dog ]
in:'the brown dog fox jumps'
Found [ the quick n/a fox n/a over the lazy n/a ]
in:'fox lazy over quick the'