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