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