Perl

Everyone know that perl(Practical Extraction and Reporting Language) is a great language for manipulating text… I have very little experience in using perl for doing this type of thing I got tons of help from a guy call pron Whos who on linux.ie . I must admit he has great patients And I own him a bounty of 100 euro for the effort
Here is the script…
Script
It’s works but I’ve been told that it can be clean up alot as there is a lot of repetitive code and the use of function would be better…
That’s all for now…