<17>11,2002,FORD ,ECONO CO, ,34567676xxxxx <17>11,2002,FORD ,ECONO CO, ,34567676xxxxx ##

##



$temp_file = "${curr_dir}work/$AoH{20}_p22.txt";

open(TEMP, "$temp_file") || print "Can't open temp file: $temp_file\n";
while() {
    $_=~/<(.*?)>(.*)/;
	
    unless ($2 eq "*") {
	unless ($1 eq "20") {
	    if ($1 eq "17") {
		my $hold=$2;
		$hold=~/^(\d\d),(.*?),(.*?),(.*?),(.*)/;
		$AoH{10}= $AoH{10}."