Select Code to Download

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

while (<STDIN>) {
   chomp;
   print("[$_]\n");
}