perl: Goatse operator usage

Велик язык Perl, велик настолько, что многое можно переписать десятком других способов. Собственно, потому и девиз Perl - TMTOWTDI. Например, ковыряя предыдущую программку на Перле, я обнаружил что одно действие можно переписать несколько иначе (надеюсь найти и др. способы со временем). Итак, вот этот кусок:

1 while (/\s/gp && $count++ < 4);

Как можно переписать:

my $count =()= /\s/gp;

Да, так называемый “goatse operator”. Не буду разглашать принцип его работы, т.к. мне самому доставило удовольствие разобраться с этим. Кому интересны подробности - можно почитать дискуссию на perlmonks.org Далее, кому интересны выкладки по перфомансу: дискуссия на StackOverflow.