#!usr/local/bin/perl

open (IN, "cfs.out");

open (OUT, ">porra");

while (<IN>) {
	chomp $_;
	@array = split (/\t/, $_);
	shift @array;
	$line = join (",", @array);
	print OUT ("$line\n");
}

close IN;
close OUT;