Select Code to Download

@new = map { my $x = $_; $x =~ s/foo/bar/g; $x } @old;

s/foo/bar/g for (@new = @old);
- or -
tr/A-Z/N-ZA-M/ for (@new = @old);