# 1 2 3 4 5 # 3456789 123456789 123456789 123456789 123456789 1234567890 $n=shift;print chr(($n-97+ord)%26+97)for split//,pop #### # 1 2 3 4 5 # 3456789 123456789 123456789 123456789 123456789 1234567890 print chr 97+($ARGV[0]-97+ord)%26for pop=~/./g #### # 1 2 3 4 5 # 3456789 123456789 123456789 123456789 123456789 1234567890 print chr 97+($ARGV[0]+7+ord)%26for pop=~/./g