#!/usr/bin/perl -wd

while(<>) {
        chomp;
        print $_, "\n";
}