DB<66> $x = q[AAD34017837201D98AAED18778DEF993];

  DB<67> $x =~ m/(?: (....) (?{say $1}) ) {4} /x
AAD3
4017
8372
01D9

  DB<68>