$textorline =~ s/([^\r])\n/$1\r\n/g;