Help for this page
DB<175> $re = qr/ " (?: \\\\ | \\" | [^"] )* " /x; ... DB<177> $a =~ /$re/; print $& "..\".."