package cogito;AUTOLOAD{$AUTOLOAD=~/::(.*)/;print"@{[(ucfirst shift,$1,@_)]}."};cogito->ergo("sum")

struct{struct{struct{char*h;}p_,*p;}a_,*a;}j_,*j;j=&j_;j->a=&j->a_;j->a->p=&j->a->p_;j->a->p->h="just another perl hacker";puts(j->a->p->h);

#include<stdio.h>
int main(){int i[]={0,10,101,100,111,67};int*c=&i[(sizeof(i)/sizeof(int))-1];while(*c)putchar(*c--);return 42;}

print"@${${\\[split/\|/,q{just|another|perl|hacker}]}}"


Reference counting [wikipedia] | Hacker [wikipedia]