does it _have_ to be $1? you can get that string very simple by $string =~ tr/_/ /;. that will replace all underscores with spaces. if you want to keep the original string, just copy it into another scalar.