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