Just an alternative of double-quote matching - the following regular expression will match anything wrapped inside a double quote, including the escaped double-quotes.

$_ = '"Hello \" world!" I am Roger';
($str) = /("(?:\\"|.)*?")/x;
print "$str\n";
[download]

Note the use of ?: tells perl not to remember the inner pattern, which makes it a bit more efficient.