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