Select Code to Download

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

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