Thanks for the changes to the code- this is exactly what I was looking for. Only problem I had was with understanding the meaning of the '?:' at the beginning of the regexp. The tutorial was not too helpful either. However a better understanding was gained from 'Perl Programming'{O'Reilly]