#23456789_123456789_123456789_12345678 $_=pop;for$x(1..pop){y/a-z/b-za/}print #### #23456789_123456789_123456789_123456 $_=pop;eval"y/a-z/b-za/;"x pop;print