in reply to a small regexp question

I presume that you mean you wish to replace the underscores with spaces.

Here are a couple of variations that do that:

$string =~ s/_/ /g; # replace each _ with a space $string =~ s/_+/ /g; # replace each run of _ with a single space

Perl is Huffman encoded by design.