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