knoppix@Microknoppix:~$ perl -Mstrict -Mwarnings -E '
> say join q{,},
>    map { sprintf q{%X}, $_ }
>    sub { hex $_[ 0 ] .. hex $_[ 1 ] }->
>    ( split m{:}, q{293F:2945} );'
293F,2940,2941,2942,2943,2944,2945
knoppix@Microknoppix:~$