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

##</code><code>##

This_is_a_song_.mp3