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