Help for this page

Select Code to Download


  1. or download this
    ...
my $replace = '"$1 Perl"';

$text2 =~ s/$match/$replace/ee;
  2. or download this
    my $replace = '$1 Perl'; # use original setting of $replace

$text2 =~ s/$match/'"'.$replace.'"'/ee;
  3. or download this
    
my $replace = sub { "$1 Perl" };

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