PracticeDev/study_perl/re/3re.pl

#!/usr/bin/perl 

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