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