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


##</code><code>##

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