perl -we'@q = qw(hacker. Perl another Just); sub q { pop @q } for (0.. +6) {$q = $_ % 2 == 0 ? q(&) : q(;); print eval "${q}q( )"}' [download]
This one is pretty nice. Though it's not hard to understand what's going on, it's still pretty nifty.