use HTML::TokeParser;
use strict;

local $/;
my $lines = <DATA>;
my $p = HTML::TokeParser->new(\$lines);
while (my $token = $p->get_token) {
	print "$1\n" if ($token->[1] =~ /^&nbsp;(\d{1,2})&nbsp;$/ && $token->[0] eq 'T')
}
__END__
<td>1</td>
<td>&nbsp;2&nbsp;</td>
<td>10</td>
<td>&nbsp;20&nbsp;</td>

##</code><code>##

2
20