I have worked with this program to parse a text file. It does what it is suppose to do. it replaces (,) commas with (|) pipes. However it gives me a warning message at the begining "Unrecognized escape \d passed through at "Filename.pl" line 5" I tried to debug this program but I haven't gotten any where. here is my code :

I'll appreciate any help. Please write to -->edge99off@hotmail.com

#! 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
[download]

update (broquaint): added formatting