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

If you want to modify it

Update: As bmann and Zaxo correctly surmise, this is a shell issue, not a subtr issue. However, the above is another way to modify it :D