Perl Scripts for data processing(Parsing data from .txt files)