Lol, just a little hint on how to use this one.
(You know, for those not as smart like me):

script.pl info.dat OR perl -naF/,/ script.pl info.dat

where script.pl => Name of The Script
where info.dat => Name of File Containing Data

The second way of executing the script in required on Win32 machines :)