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