while (<INFILE>) {	
	@fields = split /\t/, $_;
    $a1 = $fields[0];
	$a2 = $fields[1];
	$a3 = $fields[2];
	$a4 = $fields[3];
	$city = $fields[4];
	$st = $fields[5];
	$zip = $fields[6];

    print OUTFILE pack ("A30", $a1);
    print OUTFILE $TAB; 
	print OUTFILE pack ("A30", $a2);
	print OUTFILE $TAB;
	print OUTFILE pack ("A30", $a3);
	print OUTFILE $TAB;
	print OUTFILE pack ("A30", $a4);
	print OUTFILE $TAB;
	print OUTFILE pack ("A16", $city);
	print OUTFILE $TAB;
	print OUTFILE pack ("A2", $st);
	print OUTFILE $TAB;
	print OUTFILE pack ("A10", $zip);
    print OUTFILE "\r\n";
}