#!/usr/bin/perl while () { print; chomp; print "$_\'s\n"; }