Select Code to Download

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

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

my @list = $min .. $max;

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

$, = ','; print @list;

$, = ','; print @hex;