use Regexp::Common;
s/$RE{delimited}{-delim => '"'}{-esc => '"'}{-keep}/<$1>/g;