Looking back at your post I can't believe I misunderstood you. Been banging my head against the wall all weekend and the answer was there all along :)

Thanks almut (and everyone else who has helped). It's been a learning experience in perl and reading posts properly ;)