while (<IN> ne "") {

      my $line = $_;

      chomp($line);     

##</code><code>##

 while (my $line = <IN>) {
      chomp($line);