Help for this page

Select Code to Download

Select or download this
```
$str =~ s/-/\.\./g;
```

Select or download this

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