I have split the file by new lines and have got almost solved with the rest. But thats in a very crude way. Now I have got a tab at the end of each line.below is my code. How could I get rid of my end tab.

This will be a rather incomplete response, as I'm new to Perl as well, but hopefully this may help you out a bit.

A very useful function is chop() (similar to chomp(), but slightly different). Chop will remove the last character of a string, no matter what it is (*** so be careful ***). While it may be a bit tedious to run chop() on every single line (depending on how many you have), if you split the text into an array you can do chop(@array) to remove the last character of every element in @array. Not only is this potentially much less tedious, but it's also scalable, should you wish to run this script on inputs of different sizes.

So from your quoted description, you would want to:

1. Split the file into an array using the newline character as the delimiter.
2. Use chop() on the array.

I am not sure exactly how that fits into your entire program; considering jethro's much more thorough reply, it looks like there are some steps you could remove, so I'm not sure exactly where this may fit into your code after the changes. But it's at least another idea; good luck! ^_^