Select Code to Download

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

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";'