$out=" ";
my @text;
while(<>)
{
chomp;
@arr=split(/\s+/,$_);
push @r,$arr[0];
push @e,join' ',($arr[0],$arr[2]);
}
print '';
print join ' ',@r;
print '';
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.="\n$p\n$m\n\n";
}
}
print"$out\n";