use Regexp::Common qw/delimited/; print $RE{delimited}{-delim=>'"'};