#!perl -pa
$=$_;0while$=$*s/@F|/chr$%31+62/e/31-2