$ perl -e 'my $str = "This_is_a_song_.mp3"; substr($str, 14, 1, ""); print $str."\n";'
This_is_a_song.mp3