my $target = q{
  MM
  oo
 <
  -/
 /^\
      : C :
8===8
 |^|
 |||
-~-~
};

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

##</code><code>##

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

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