use strict;
use warnings;

print "<text>",join(" ",map{/^(\w+).*?(B-NP|I-NP)?$/;
$a.="<annotation><type>NP</type><text>$1</text></annotation>\n"if$2;$1}<DATA>),"<text>\n$a"; 

__DATA__
how B-NP
are
you I-NP
really