Being a possessor of only basic Perl knowledge I am still wrapping my intellect around this code, it's getting clearer now.

It's so depressing comparing the number of lines of code I used to do it :P

Thanks again