perl shorten-filenames.pl 8 ../asma