my $record;
while(<DATA>){
    if(/^$/){
	printme($record);
	$record = {};
    }
    else{
	   ($label,$data) = split /:/;
	    if(/\[(.*?)\]/){
	      $data = $1;
	    }
	    elsif(/\>(.*?)\</){
	       $data = $1;
	    }
	    $label =~ s/\s+$//;
    }

    if(($label eq 'Capability') || ($label eq 'Info')){
	   if($data =~ //){
	       $data = 'TEST';
	    }
    }
    $record->{$label} = $data;
}
sub printme {
    my $record = shift;
    foreach (keys %{$record}){
	    print "$_:",$record->{$_},"\n";
    }
    print "=" x 30,"\n";
}