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$..$/
