And another option:

use Modern::Perl;

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

Output

293F,2940,2941,2942,2943,2944,2945
[download]