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

##</code><code>##

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