$_='10112401000713010514231300
   2415132000221902082013';$n=96; 
   for(/(\d{2})/g){$n+=int($_);$n
   -=26if$n>122;$v.=chr(32),next
   if$_==00;$v.=chr($n);}print
   join' ',map{ucfirst}split/ /,
   $v.pack('c',10);