open (diff, "SAPPDAY.00063.new");
$count = 0;
while () {
	if (/(^16|^88)/) {
		chomp $_;
		@words = split(/,/, $_);
		$field_cnt = $#words;

		# print "  Field count = $field_cnt\n";

		$last_length = length $words[$field_cnt];

		# print "  Field length= $last_length\n";

		$num1 = $last_length-1;
		$num2 = $num - 1;

		# print " NUM 1 = [$num1]\n";

		if ( substr($words[$field_cnt], $num1, 1) eq " " ) {
			$part1 = substr($words[$field_cnt], 0, $num2 );
			$part2 = substr($words[$field_cnt], $last_length, 1);
			$words[$field_cnt] = $part1 . $part2;
			print "$words[$field_cnt]\n";
		}
		exit;
	}
}