Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l
 
...
/eg,$i++for@$=qw(I 14000303 000106 1200100715
1500150417 000817151100130418
0813 0211001818 );print"@$."

Select or download this

#!/usr/bin/perl -l
 
...
++for@$=qw(I 14000303 000106 1200100715 1500150417
 000817151100130418 0813 0211001818
);print"@$.$/"x(($=-=10)*10)