Select Code to Download

$totals[$_] += ($range =~ /^(?=(\d+))(?:\d+-)?(\d+)$/)[$_] for 0,1;

  $total_min += ($range =~ /^(\d+)/)[0];
  $total_max += ($range =~ /(\d+)$/)[0];