perl -e '$_.=qq;074117115116032;,$_.=qq,09711011111,;$m,$gm;$g=qr;(.?[.]?.?[.]?.?);,$mg;$_.=q;610410111403208010;;$_.=qq;1114108032104097;,;$_.=q;099107101114046010;,$_;print chr $1 while m;$g;mg;'