while (<>) { chomp; my $len = length; print OUTPUT $_, $/; }