@list = "ZBBCZZ" =~ /(??{'(.)\1*'})/g;