Help for this page

Select Code to Download


  1. or download this
    my $from = "my (mom)";  # UPDATE: was '"my (mom")'
my $to = "our \$1";
$content =~ s/$from/qq{qq{$to}}/ee;
  2. or download this
    use DynScalar;
my $from = "my (mom)";
my $to = dynamic { "our $1" };
$content =~ s/$from/$to/;