# 27 * 3 - 1 = 80 chars
sub num2range {
#23456789012345678901234567
my$x=join',',sort{$a-$b}@_;
$x=~s/(?<!\d)(\d+)(?:,((??{
$++1})))+(?!\d)/$1-$+/g;$x
}