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

I got a bit bored at work on my birthday... this appeared from my underground dungeon:

${'.'}=bless ["Just another Perl hacker\n"]; 19800829 .. 20020829; use overload '0+' => sub {print @{$_[0]}};