while ( my $t = $p->get_token )
{
	if ( $t->is_start_tag('b') )
	{
		while ( my $t = $p->get_token )
		{
			last if $t->is_end_tag('/b');
			if ( $t->is_text )