>perl -nle"m[<font size=1>([^<]+)</font></td></tr>] and print $1" junk.txt
936
20
4
506
502
6
2.76
14
27
76
581 (11.4%)
19,021
843 (90.1%)
$257,524
$90,945
48
2,602
118

##</code><code>##

#! perl -nlw
use strict;
use Time::HiRes qw[ time ];

BEGIN{ @ARGV = map glob, @ARGV }

local $/;

my $start = time;
while( <> ) {
    my @vals;
    while( m[<font size=1>([^<]+)</font></td></tr>]g ) {
        my $val = $1;
        $val =~ tr[$,][]d;
        $val =~ s[^\s*([0-9.]+).+$][$1]e;
        push @vals, $val;
    }
    print "@vals[ @vals /2 .. $#vals ]";
}

print time-$start;

##</code><code>##

 C:\test>873713 junk*.txt
...
93 2 4 50 50 6 2.7 1 2 7 581 1902 843 25752 9094 4 260 93 2 4...
93 2 4 50 50 6 2.7 1 2 7 581 1902 843 25752 9094 4 260 93 2 4...
93 2 4 50 50 6 2.7 1 2 7 581 1902 843 25752 9094 4 260 93 2 4...
93 2 4 50 50 6 2.7 1 2 7 581 1902 843 25752 9094 4 260 93 2 4...
4.07200002670288
^Z