$_ = 'It was an intelligent stori';
my @multiple = /([[:alpha:]])(?=.*\1)/ig;