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