$txt = "This_is_a_song_.mp3";
$txt =~ s/(.*)_/$1/;
print $txt;