my $txt = "This_has_under_scores.mp3";
  $txt =~ s/(.+)_/$1/;
  print $txt; #  "This_has_underscores.mp3";