$q=q{ # Just Another Perl Hack(er) ;-)
print qq{\$q=q{$q};eval \$q;
}};eval $q;