$singular_noun            # scalar

 @plural_noun              # array

 $singular_noun{specific}  # hash, element

 sub verb{ ... }           # subroutine

##</code><code>##

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/;
}