@indata=split(/^M/,$data);
foreach (@indata) {
$dataout.=$_;
};

##</code><code>##

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

##</code><code>##

$outdata.="^MHelloWorld^M";