Добрый Perl :)

Попросили сделать разбор одного  примера из perl100 (ивент для первокуров компьютерных специальностей в нашем универе). Возможно, памятуя то, что одним из авторов разбора 3х-летней давности был я.

Точнее примеров мне дали несколько,  но понравился этот :)

(*$,$_)=(sub{q&q&})x2;/./&print &$&$&; — собственно, вот он — пример.
Читать далее