my $str = 'This_is_a_song_.mp3';
$str = reverse $str;
$str =~ s/_//;
$str = reverse $str;