sub default {
    return 0 unless( @_ && length $_[0] );
    return $_[0];
}
$$ref_entry{$1} = default( $2 ) if /^(\w +?)\s+:.(\d+)/;
$$ref_entry{$1} = default( $2 ) if /^(\w +?)\s+:.'(.*)'/;
$$ref_entry{$1} = default( $2 ) if /^(\w +?)\s+:.>(.*)</