untested:

$/ = "\r\n";
while (<>) {
    if (s/^\r//) {
        $l .= $_;
        $l =~ s/\r\r//g;
        next;
    } else {
        print $l;
        $l = $_;
    }
}
print $l;
[download]

although I don't know what the heck you are wanting to to with what files to what end.

Could you show what you've tried? and perhaps some sample input?

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}