#! /usr/local/bin/perl -w
use IO::File;

while ($string = <STDIN>)
{
   chomp($string);
   STDOUT->print("$string\r\n");
}