open(F, "input"); open(FOUT, ">output"); while ($k = ) { chomp($k); print FOUT "$k\n"; }