Select Code to Download

my $jim = "jim(";
my $string = "A string with jim( in it";
...

$jim = quotemeta $jim;
print "yeah" if $string =~ m/$jim/;