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