my ($m) = reverse($myvar) =~ /"\?(.*?)"/s; $m = reverse $m; print "matched <$m>\n"; #### my ($m) = reverse($myvar) =~ /"\?(.*?)"(?!\\)/s;