##
print\ \"John\'s\";
##
##
"print \"John's\";"
##
##
'print "John'"'"'s";'
'print "John'\''s";'
##
##
perl -lane 'print "John'\''s";'
##
##
system(
q{perl},
q{-lane}.q{print "John's";},
);
##
##
perl '-laneprint "John'\''s";'
##
##
perl -lane'print "John'\''s";'