Массовое переименование файлов

$ rename -n 's/^(.{8}).*/$1/' 1234567890 
rename(1234567890, 12345678)

[int13h@homepc test]$ sudo pacman -S perl-rename
разрешение зависимостей...
проверка конфликтов...

Пакеты (1) perl-rename-1.9-1

Будет загружено:  0,01 MiB
Будет установлено:  0,02 MiB

:: Приступить к установке? [Y/n] y
:: Получение пакетов ...
 perl-rename-1.9-1-any                                                  9,3 KiB   932K/s 00:00 [########################################################] 100%
(1/1) проверка ключей                                                                          [########################################################] 100%
(1/1) проверяется целостность пакета                                                           [########################################################] 100%
(1/1) загрузка файлов пакетов                                                                  [########################################################] 100%
(1/1) проверка конфликтов файлов                                                               [########################################################] 100%
(1/1) проверяется доступное место                                                              [########################################################] 100%
(1/1) установка perl-rename                                                                    [########################################################] 100%
[int13h@homepc test]$ perl-rename -n 's/^(.{8}).*/$1/' *
111asdfasdfMjflksdf.txt -> 111asdfa
asdfasdfMjflksdf.txt -> asdfasdf
fsdafs111asdfasdfMjflksdf.txt -> fsdafs11
gggfsdafs111asdfasdfMjflksdf.txt -> gggfsdaf
Myjakfjkldjflksdf.txt -> Myjakfjk
rrrrrrrrrrrrrrrr.txt -> rrrrrrrr
[int13h@homepc test]$ 

% zmv -n * '$f[1,8]'