while ($line = <FILE>) {
  chomp $line;
...

##</code><code>##

while (<file>) {
chomp;
...