chomp $line; $line =~ s/\r//g;