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