Help for this page
my $num; while (m#Results\s+<b>[\d,]+\s+thru\s+[\d,]+</b>\s+of\s+([\d,]+)?\s*$# +) { ... $_.=<>; } # value, if any, in $num