my ($m) = reverse($myvar) =~ /"\?(.*?)"(?!\\)/s;