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