Попросили сделать разбор одного примера из perl100 (ивент для первокуров компьютерных специальностей в нашем универе). Возможно, памятуя то, что одним из авторов разбора 3х-летней давности был я.
Точнее примеров мне дали несколько, но понравился этот
(*$,$_)=(sub{q&q&})x2;/./&print &$&$&;
— собственно, вот он — пример.
Читать далее