Found this line the other day in some source code. Quite egocentric :-)
sub new { bless my $self = {}; }
Gesundheit?
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/) [download]