#!/usr/bin/perl
while (<>) {
   chomp;
   print "$_ and two\n";
}