Just store what's around in other variables:

if (my ($prefix, $matched, $suffix) = /^(.*?)"(.+?)"(.*)/) {
    $matched = ... # Do what you need.
    print qq($prefix"$matched"$suffix\n);
}
[download]