open(IN, '<c:\doclist.chr') or die "Couldn't open file, $!";
open(OUT, '>c:\doclist.txt') or die "Couldn't open file, $!";

##</code><code>##

print OUT join '|', split /,/ while <IN>;