Select Code to Download

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

   1: BRANCH(15)
   2:   ANYOF[0-9a-f](13)
...
  16:   EXACT <8}>(18)
  18: END(0)