The shell is misinterpreting your command line because of interior single quotes, dropping the fourth argument.

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