DB<130> $a='ABCBBBCBADBCCACDDDAC'
 => "ABCBBBCBADBCCACDDDAC"

  DB<131> grep { /(.)\1\1/ } unpack '(A5)4', $a 
 => "DDDAC"