Запишите это:
-f: perldoc -f -X . Если имя файла не указано (как в данном случае), проверяется, $_содержится ли имя простого файла
>: Проверяет, больше ли RHS, чем LHS
@+: В скалярном контексте возвращает количество элементов в @+
?: условный оператор
*<: Шар для main::<
.: Оператор конкатенации строк
-&'_: Вызывает подпрограмму main::_. К вашему сведению, 'это perl4разделитель имен пакетов стилей. Попробуй perl -MHTML'Template -e 1.
: : Продолжение с условным оператором
$#: Формат вывода для напечатанных номеров
/ : Оператор подразделения
%!: %ERRNO; смотри perldoc perlvar
Таким образом, это не невозможно понять, если вы приложите немного усилий. Очевидно, что это не то, как кто-то должен писать программы, но есть некоторая выгода от людей, раздвигающих границы.