@n{@l=(_,a..z,'.')}=0..27;$"=my$i;$p[$_[0]*$i++%@c]=$l[($_+$i)%28]for@c=@n{pop=~/./g};"@p"