while (<DATA2>)
  {
      $line=<DATA2>;

##</code><code>##

  while ($line = <DATA2>) {