my $range = "2..5,10..15";

# Split on commas
my @range = split /,/, $range;

# Expand any n..m
@range = map { /(\d+)..(\d+)/ ? ($1..$2) : $_ } @range;