sub q_{print};$_=eval q.q;
# Just another Perl Hacker
;;.;s;.+?\b;;s;eval qq;q_;