Swalif, your example made a lot of sense but I already did it the other way, I'm the only girl in my class and I think most of the guys are too shy to help me so thanks to everyone for the help. I played around with the code and was able to figure it out. I've programmed in Java, C++, and Visual Basics so PERL is a little different then what I'm used to. I'm sure I'll be asking for more help on later programs. :)

The OP already had a solution that did everything your code did and more (although your list context variable initialisation was good). However the introduction of a module for trivial I/O was a major distraction. If there was a good reason for using the module you didn't provide any explanation for it nor did you say how your sample improved on what the OP already showed.

Using this standard module will improve readability at least for those who are from Java background like me and the OP. The later code didn't have special variables nor any Regex and had only one loop. I hope these are improvements.
regards