while (my $wholefile = <INFILE>){
	my $reg = s/.*?,//;
	my $wholefile = $wholefile.$reg;
	}

## spit out entire file
print OUTFILE $wholefile;