$/ = "\r";

open my $in_fh,  "<:raw", "Mac_in.pdf"  or die "$!";
open my $out_fh, ">:raw", "Mac_out.pdf" or die "$!";

while (<$in_fh>) {
    # do something with the line...
    print $out_fh $_;
}