my $replace = '"$1 \\"Perl\\""';  # Produces: "$1 \"Perl\""
s/$match/eval $replace/e