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

#!/usr/bin/perl -w $; ++; @{@; }=split$; ,q;Just1432Another243Perl34Hacker; ;$\=$; [$; -1].$"; print ''; do ${2^2} unless $; &(2*2)