http://www.perlmonks.org?node_id=564261

In "Stages of a Perl Programmer", by Tom Christiansen, a "Hacker" (stage 5) is defined as someone who, among other things, "accesses the Perl symbol table directly".

Here is my attempt to do so, and without using any semi-colons:

{use B} $a= -- $ |and map {s|$_| sub { map{ m{^ $_[0] (.{$a})}ix && return lc $1 } keys%B:: }->(lc $_ )|e && map { print $_ , $ " } split // and $ | and $a += $| --} split $ " ,".b .in ...._s u ..me v ". "..ty ..pea cc c" ."he v"

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/