...
my $replace = '"$1 Perl"';

$text2 =~ s/$match/$replace/ee;

##</code><code>##

my $replace = '$1 Perl'; # use original setting of $replace

$text2 =~ s/$match/'"'.$replace.'"'/ee;

##</code><code>##


my $replace = sub { "$1 Perl" };

$text2 =~ s/$match/$replace->()/e;