Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

'293F:2945' =~ /(.+):(.+)/ and say join ',',
  map { sprintf '%X', $_ } eval "0x$1..0x$2";

Select or download this
```
293F,2940,2941,2942,2943,2944,2945
```