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