Архив тега Универ

Добрый Perl :)

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