(sort{length$b<=>length$a}pop=~/.*(?(?{$&=~'(.).*\1'})^)/gs)[0]