DB<142> @a = ("abc","aab","abb", "aba","abcd","abca" )

  DB<143> for (@a) { say "$_" if /^ ( (.) (?!.*\g-1) )+ $/x }
abc
abcd

  DB<144>