DB<1> $a="abcdabcd"

   DB<2> p $a =~ /[0-9a-f]{4|8}/

   DB<3> p $a =~ /[0-9a-f]{4}/
1
   DB<4> p $a =~ /[0-9a-f]{8}/
1