Help for this page
while (defined(my $i = <STDIN>)) { chomp($i); print("[$i]\n"); }
while (<STDIN>) { chomp; print("[$_]\n"); }