Number::Range will do approximately what you want, you'll just need to reformat the results a bit:

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