# Code that writes CSV out.
$csvstring=~s/\cM\cJ/\cM/g;
print SH $string."\cM\cJ";

# Code that reads Parses CSV
{
    local $/ = "\cM\cJ"; # end of line is now \cM\cJ
    while (<INFILE>){
        if ($csv->parse($line) ){
            my @columns=$csv->fields;
            # Process data here
           
        }else{
            die "Error Parsing: $csv->error_input\n";
        }

    }

}