$str =~ s/-/\.\./g;

##</code><code>##

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