I don't know PERL syntax but the gist is to read the name field into a string variable, I gues that is what $name is. Then do a search for the underscore. I assume there is some string function that will return the position of any underscore found in the string. When you know the position, you can use it to replace the character at that position with a blank.

__________________
MB-less