«Оператор goatse» или = ( ) = idiom в Perl вызывает вычисление выражения в контексте списка. Пример: my $ str = "5 и 4 и 3 и 2 1 УДАЛЯЕТСЯ !!!"; мой $ count = () = $ str = ~ / \ d / g; # ...