# 30 + 38 = 68
sub num2range {
#2345678901234567890123456789012345678 
local$_=join',',sort{$a-$b}@_;
s/\b(\d+)(,((??{$++1})))+\b/$1-$+/g;$_ 
}