Untested, but this is a straightforward problem:

sub find_quote {
  local $_ = shift;
  s/("([^"]+|"")*")/<$1>/g;
  $_;
}
[download]