[Moscow.pm] YAPC::Russia Perl Golf 2009

[Eugene Ardarov]

И еще можно вот это
    $h=-1;
запихать сюда вот так
    $h--,$n=@;if/x/;

Еще -1 символ.

Боже мой, ну и монстр получается! :D