$line =~ s/\r?\n//;