Replacing

$str =~ s/-/\.\./g;
[download]

by

$str =~ s/(\d+)-(\d+)/join(",",$1..$2)/ge;
[download]

seems to do what you want... (on correct input: positive numbers, first one lesser than second).