Re^3: Converting a list of numbers to use a range operator

[2teez]

I even love the way Parse::Range does it.
Putting your original $list in the function parse_range prints out beautifully like so:

use warnings;
use strict;
use Parse::Range qw(parse_range);

  my $list = "2-4,10-12";

  print join ','=> parse_range($list); # 2,3,4,10,11,12