Select Code to Download

plaintext:   abcdef
ciphertext:  nopqrs

tr/A-Z/N-ZA-M/;

#        1         2         3         4
# 3456789 123456789 123456789 123456789 123456
($n,$_)=@ARGV;split//;print chr(ord()+$n)for@_