Help for this page
@indata=split(/^M/,$data); foreach (@indata) { $dataout.=$_; };
@indata=split(/^M/,$data); foreach (@indata) { push @outdata,$_; }; $outdata=join(/^M/,@outdata);
$outdata.="^MHelloWorld^M";