#!/usr/bin/perl

while($l = <>)
{
  chomp($l);
  print "$l\n";
}