in reply to quote regular expression
I think you can also do this kind of work with Text::Balanced or Regexp::Common::delimited.