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