DB<1> p qr/[0-9a-f]/i
(?^ui:[0-9a-f])
  DB<2> $x=qr/[0-9a-f]/i

  DB<3> $hex_range= qr/$x+ - $x+/x

  DB<4> say $hex_range
(?^ux:(?^ui:[0-9a-f])+ - (?^ui:[0-9a-f])+)

  DB<5>