I hate to burst your bubble, but tr/// is made for this sort of thing.

for (1 .. 26) {
  $str =~ tr/a-zA-Z/b-zaB-ZA/;
  print $str;
}
[download]

japhy -- Perl and Regex Hacker