Help for this page

Select Code to Download

Select or download this

foreach my $who (@list) { 
    #my $sub = "\$ln =~ s/scrooge (& donald)/$who \$1/g;";
...
    }
    print "\n";
}

Select or download this

$ perl -E 'my $x = "AAA"; $x =~ s/A/B/; say $x'
BAA
...

$ perl -E 'my $x = "AAA"; $x =~ s/A/B/g; say $x'
BBB