my($min, $max) = /\b([0-9a-f]+):([0-9a-f]+)\b/i;

##</code><code>##

foreach($min, $max) {
    $_ = hex($_);
}

##</code><code>##

my @list = $min .. $max;

##</code><code>##

my @hex = map { sprintf '%X', $_ } $min .. $max;

##</code><code>##

$, = ','; print @list;

##</code><code>##

$, = ','; print @hex;