Perl 去掉行分割符

[oracle@dwh1 perl]$ cat 9.pl open my ($fh),'<',"1.txt" or die;foreach (<$fh>) {chomp ($_);print "$_";};[oracle@dwh1 perl]$ cat 1.txt aaaaaaaabbbbbbbbccccccccddddddddeeeeeeeeffffffffgggggggg[oracle@dwh1 perl]$ perl 9.pl aaaaaaaabbbbbbbbccccccccddddddddeeeeeeeeffffffffgggggggg[oracle@dwh1 perl]$