#! perl -w

use strict;

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

while(<IN>) 
{
   chomp;  # Remove the newline
   my ($var1, $var2, $var3, $var4, $var5, $var6, $var7) = split /,/;
   print OUT $var1,"|",$var2,"|",$var3,"|",$var4,"|",$var5,"|",$var6,"|",$var7,"\n";
}
exit;

close IN
close OUT