use strict;
use warnings;

my @tableVals;

while (<DATA>) {
	push @tableVals, [/\s+([-.\d]+)\s+/g] if /^\|\s+\d/;
}


__DATA__
+----+-----+-------+--------+----+----+--------+----+--------+---+
| M  | m   | p     | k      | y  | my | r      | s  | o      | c |
+----+-----+-------+--------+----+----+--------+----+--------+---+
| 84 | 250 | 16700 |   4900 | 13 |  0 | 102124 | 23 |      0 | 0 |* similar
| 84 | 250 | 17290 |   4905 | 13 |  6 | 102124 |  1 |   3687 | 0 |* similar
| 84 | 250 | 17290 |   4905 | 13 |  6 | 102124 | 22 |   3687 | 2 |* similar
| 84 | 250 | 17290 |   4910 | 13 |  6 | 102124 |  3 |   3687 | 2 |* similar
| 84 | 250 | 16700 |   4900 | 13 |  6 | 102124 |  3 |      0 | 5 |* similar
| 84 | 250 | 17290 |   4905 | 13 |  6 | 102124 |  4 |   3687 | 2 |* similar
| 84 | 250 | 10200 |  46423 | 11 |  5 |  52012 | 23 |    485 | 1 |# similar
| 84 | 250 | 10900 |  46423 | 11 |  5 |  52012 |  8 |    485 | 0 |# similar
| 84 | 250 |  9900 |  46423 | 11 |  5 |  52012 | 22 |    485 | 1 |# similar
| 84 | 250 | 10900 |  46423 | 11 |  5 |  52012 |  3 |    485 | 1 |# similar
| 84 | 250 |  5200 | 150000 | 07 | 11 |  31609 |  8 |  54964 | 3 |& similar
| 84 | 250 |  5490 | 150000 | 07 |  0 |      0 | 23 |  54964 | 0 |& similar
| 84 | 250 |  5300 | 150000 | 07 | 11 |  31609 |  6 |  54964 | 0 |& similar
| 84 | 250 | 14390 |  49501 | 11 |  5 |      0 | 22 | 140427 | 1 |§ similar
| 84 | 250 | 13980 |  49501 | 11 |  5 |  31751 |  6 | 140427 | 0 |§ similar
| 84 | 250 | 13980 |  49501 | 11 |  5 |  31751 |  3 | 140427 | 1 |§ similar
| 84 | 250 | 14380 |  49501 | 11 |  5 |      0 | 23 | 140427 | 1 |§ similar
| 84 | 250 | 14380 |  49501 | 11 |  5 |      0 |  1 | 140427 | 0 |§ similar
+----+-----+-------+--------+----+----+--------+----+--------+---+

##</code><code>##

$VAR1 = [
          [
            '84',
            '250',
            '16700',
            '4900',
            '13',
            '0',
            '102124',
            '23',
            '0',
            '0'
          ],
          [
            '84',
            '250',
            '17290',
            '4905',
            '13',
            '6',
            '102124',
            '1',
            '3687',
            '0'
          ],
          [
            '84',
            '250',
            '17290',
            '4905',
...

##</code><code>##

print $tableVals[2]->[3]; # (zero indexed) row 2, col 3

##</code><code>##

my $sum;
$sum += $tableVals[$_]->[7] for 0 .. $#tableVals;
print $sum;

# prints 204