Select Code to Download

my @a = split/:/,$str;
@a % 2 && die;                # not an even number of items
...
   if ($r < $p) {last;}
   $r -= $p;
}

            Rate origCode     duff       QM      L~R      ccn   fizbin
origCode  4029/s       --     -34%     -77%     -82%     -87%     -89%
...
L~R      22908/s     469%     273%      32%       --     -29%     -38%
ccn      32106/s     697%     423%      85%      40%       --     -12%
fizbin   36690/s     811%     498%     111%      60%      14%       --

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/