Is it me or is it really as simple as:

$word =~ s/_//g;
$word =~ /(\w+)/ and $word = $1;
[download]

Friday night (=rapidly evaporating) minds vaguely want to know!