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