$line =~ s/[\r\n]+//g;