Probably something under basic string substitution... I was trying the substr but couldn't get it to work properly. I am very new to perl and only have to maintain a couple of very simple scripts and didn't want to spend alot of time on learning the lang.