use strict;
use warnings;
use 5.010;

my @strings = (
    'aa',
    'ab',
    'a1',
);

for my $str (@strings) {
    if ($str =~ /
                    ([a-z])    
                    (?!\1)     
                    [a-z]  
                /x   ) {
        say "$str: $1";
    }
}

--output:--
ab: a