This captures all alphabetic characters that appear more than once in a string, ignoring case:

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

Anno