open(INFILE1, "$ARGV[0]") or exit(101);
open (OUTFILE1, ">" . "delimited_$ARGV[0]") or exit(201);
$coid="$ARGV[1]";
if ("$coid" eq ""){$coid="***COID***";}


while(<INFILE1>) {
    @file_line_contents = split (/\,/,$_); 
    print OUTFILE1 "\"$coid\"\,\"".join ('","', @file_line_contents);
}