$file = 'u:\curtisbl\test\text.dbf';
$file0 = 'u:\curtisbl\test\output.dbf';
$warn = "Unable to open file: $file\n";
$warn0 = "Unable to create output file: $file0\n";
$warn1 = "Unable to close file: $file\n";
$warn2 = "Unable to close output file: $file0\n";

open(FILE, "$file") || die $warn;
open(TEXT, ">$file0") || die $warn0;
while (<FILE>)
{
	($description, $UIC1, $UIC2, $UIC3) = split(/,+/);
	print TEXT;
}
close(FILE) || die $warn1;
close(TEXT) || die $warn2;