if ($string =~ /foo\012bar/m)