Select Code to Download

my $target = q{
  MM
...
};

print "Match!\n" if ($target =~ /\/\^\\\n.+C/m);

my $target=q {
  MM
...
};

print "Match!\n" if ($target =~ /\/\^\\\n.+C/m);