my ($handler, $stream) = File::Stream->new(\*FILE, separator => qr{[\cM\r\n][\cM\r\n]?});