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

  DB<54> $x =~ m/(....)/g and say $1 for 1..4
AAD3
4017
8372
01D9

  DB<55>