my $eol = qr/\015|\012|\015\012/;