While nowhere close to a winner, this beats all the other regex solutions:

sub lookahead
{
    my ($sentence, $wantedLetters) = @_;
    $wantedLetters =~ s/(.)/(?=.*?\Q$1\E)/sg;
    $sentence =~ /^$wantedLetters/s;
}
[download]