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