my $re = qr{\s*(.+?)\s+(--|[+-]?\d+[.]\d+)};
my (%stats, @stat_order);

while ($content =~ /$re/g) {
    push @stat_order, $1;
    $stats{$1} = $2;
}