Select Code to Download

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

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

$outdata.="^MHelloWorld^M";