Исправление DRVTiny, (текущая версия) :
Я в недоумении: это как...?
$ perl -E '$n=()=split(//,q(abcdefghij)); say $n'
1
$ perl -E '$n=()=<*>; say $n'
9
Исходная версия DRVTiny, :
Я в недоумении: это как...?
akkerman@andrey-HP-15-Notebook-PC ~ $ perl -E '$n=()=split(//,q(abcdefghij)); say $n'
1
akkerman@andrey-HP-15-Notebook-PC ~ $ perl -E '$n=()=<*>; say $n'
9