open(INPUT,"filename.txt") or die "Will not open input: $!";
open(OUTPUT,">output.txt") or die "Will not open output: $!";

local $/ = \164;
while( <INPUT> ) { ## Updated per jwkrahn's post below
    print OUTPUT "$_\n";
}
close OUTPUT;
close INPUT;

##</code><code>##

perl -ple"BEGIN{$/=\164}" filename.txt >output.txt