Help for this page
$txt = "This_is_a_song_.mp3"; substr($txt, rindex($txt, '_'), 1) = ''; print $txt;
$txt = "This_is_a_song_.mp3"; $txt =~ s/(.*)_/$1/; print $txt;