Select Code to Download

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

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