open (linedata, "/test.txt");
while  (<linedata>) {    
    ($A, $B, $C, $D) = split(/\t/, $_);
    print "$A, $B, $C, $D, \n"
    }
close (linedata);