if (my ($match) = /(\Q$string\E\S*)/) {
    print "Matched '$string' in '$match'.\n";
}