sub num2range { local $_ = join ',' => @_; s/(?