I can write many lines of code to do it, but I'm sure there is a better and smarter way of doing it. That's why I asked for help:) First thing I learned about Perl: "There are more than 1000 ways of doing it"

If you remove the newlines then it all fits on one line -- I sure would like to see how you would do it