DB<8> print "$1\n" while $x =~ /(\w{2,})(?=.*\1.*\1)/g
hello
hello
hi