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