DB<73> p $capt4 = '(....)' x 4
(....)(....)(....)(....)
  DB<74> x $x =~ m/ $capt4  (.+) /x
0  'AAD3'
1  4017
2  8372
3  '01D9'
4  '8AAED18778DEF993'
  DB<75>