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