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

##</code><code>##

my $content =~ m/.../g;