Help for this page
perl -e 'my $str = "This_is_a_song_.mp3"; substr($str, 14, 1, ''); pri +nt $str."\n";'
This_is_a_song_.mp3