@indata=split(/^M/,$data);
foreach (@indata) {
  push @outdata,$_;
};
$outdata=join(/^M/,@outdata);