# note this is completely untested...
my $match = 0;
my $pb = HTML::TokeParser->new(\$content);
{
  $pb->get_tag('b', '/b');
  my $tb = $pb->get_text();
  if ($tb =~ /^\d+$/) {
    $num = $tb;
    last;
  }
  redo;
}