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