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