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