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