$$ref_entry{$1} = $2 if /^([\w ]+?)\s+:.(\d+)/;
$$ref_entry{$1} = $2 if /^([\w ]+?)\s+:.'(.*)'/;
$$ref_entry{$1} = $2 if /^([\w ]+?)\s+:.>(.*)</;
print "TEST   $1 ==> $2\n";