i don't do DOS

Why not?

$lines =~ tr/\r//d;
$lines =~ tr/\n//s;

# or this?
$lines =~ tr/\r?\n//s;
[download]

I don't know how DOS newlines look, but wouldn't "\n\n" be "\r\n\r\n"?

-xtype