q{"print 'print \"print Just Another Perl Hacker\"';print \"Just Another Perl Hacker\";";print \"print \"Just Another Perl Hacker\"";};print "Just Another Perl Hacker";qq{print "Just Another Perl Hacker";print 'just another perl hacker'; print "JUST ANOTHER PERL HACKER" print "Just Another Perl qx[print 'Just Another Perl Hacker'] Hacker"};q*print join(' ',@{[(qw(Hacker Perl Just Another))[2,3,1,0]]})*;qw#print map {"$_ "} map {ucfirst} qw(just another perl hacker);#,qx~print "Just Another Perl Hacker"; print 'Just Another Perl Hacker';;print "Just Another 'print qw(Just Another Perl Hacker)'"~;