my $pb    = HTML::TokeParser->new(\$content);
my $regex = '^\d+$';
LABEL: while($pb->get_tag('b', '/b')){
  my $tb = $pb->get_text();
  $foo = $tb;
  last LABEL if $tb =~ /$regex/;
}