Could you write it for me as a one-liner? I’d like to learn more Perl and this would help.
Oh, I wouldn't try to squeeze it down into a one liner. Maybe for a simple definition of the quoted text that doesn't need to account for edge cases like escaped quotes inside...