while(<STDIN>) { chomp; last unless length; $s.=$_; print "$s\n"; }