my $num;
while (m#Results\s+<b>[\d,]+\s+thru\s+[\d,]+</b>\s+of\s+([\d,]+)?\s*$#) {
  $num=$1;
  last if defined $1 or eof;
  $_.=<>;
}
# value, if any, in $num