sub a_naked { print 'Just another' }
print qq|${ print "I gotta be...\n";|
a_naked} Perl hacker