my @range =
    map { m{ (\d+) \s* \.\. \s* (\d+) }msx ? $1 .. $2 : /(\d+)/ }
    split /,/, $range;