Except there are some tricks. The data is formatted to contain (often) two data sets on the same line. And he does seem to want "90 and over" to show up. I got pretty good results with this:

my (@age, @number_of_males, @number_of_females);
while (<FILE>) {
    if (/\b\d\d?(?:\d+\.\d+\s*){3}\s/) {
        s/under\s+/</gi;
        s/\s+and over/+/gi;
        my @ar = split;
        while (@ar > 3) {
            (my ($age, undef, $males, $females), @ar) = @ar;
            next if $age =~ /\d\D\d/;
            push @age, $age;
            push @number_of_males, $males;
            push @number_of_females, $females;  
        } 
    }
}
print "$age[$_], $number_of_males[$_], $number_of_females[$_]\n"
   for sort {$age[$a] <=> $age[$b] } 0..$#age;
[download]