$out=" ";
my @text;
while(<>)
{
chomp;
@arr=split(/\s+/,$_);
push @r,$arr[0];
push @e,join' ',($arr[0],$arr[2]);
}

print '<text>';
print join ' ',@r;
print '</text>';
print"\n";

for my $a (@e) {
@q=split(/\s/,$a);
if($q[1]=~/^B-/)
{
$p=$';
$m=$q[0] if( $q[1] =~/^B-/ or $q[1]="o");
$out.="<annotation>\n<key=type>$p</type>\n<text>$m</text>\n</annotation>\n";
}
}
print"$out\n";