Thank you so much, it worked fine.

Every day I learn a bit more about perl thanks to gurus like you :)