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