chomp(my $line = <FILE>);
  $line =~ tr/\r//d;