$ perl -MNumber::Range -e '
  $r = Number::Range->new(5, 1..4, 7..10);
  print scalar($r->range())
'
1..5,7..10