$$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";

##</code><code>##

Location Identity        : >0085 2f5b<     132321312
Required Bearer Capability  : ><