my $target=q {
  MM
  oo
 <
  -       ^ ^
 /^\      @ @
: C :    ( o )
8===8     `+'
 |^|     O-X-O
 |||      / \
-~-~      O O
};

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