#!/usr/bin/perl 

foreach $line (<>){
    chomp $line; # 去掉行尾分隔符
    print "$line";
}