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