use strict;
use warnings;

my $rxbfile = $ENV{rbfile};

open(IN, "$rxbfile") or die $!;
binmode IN;

my @array = "";
my $newline = "";

while (<IN>) {
  $newline = $_;
  $newline =~ s/\r\n/\012/;
  push @array,$newline;
};

close (IN);

open(OUT, ">$rxbfile") or die $!;

foreach (@array) {
  print OUT $_;
};

close (OUT);