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

##</code><code>##

print\ \"John\'s\";

##</code><code>##

"print \"John's\";"

##</code><code>##

'print "John'"'"'s";'
'print "John'\''s";'

##</code><code>##

perl -lane 'print "John'\''s";'

##</code><code>##

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

##</code><code>##

perl '-laneprint "John'\''s";'

##</code><code>##

perl -lane'print "John'\''s";'