#!/usr/bin/perl -l
 
@_=((105)x2,(110)x1,(104)x1,
(97)x4);s/(..)/chr($1+$_[$i])
/eg,$i++for@$=qw(I 14000303 000106 1200100715
1500150417 000817151100130418
0813 0211001818 );print"@$."