$x = 'aba';
 
print $x =~ /(.)(?=\1)/
        ? "double!\n"
        : "not double!\n";
 
$x = 'abba';
print $x =~ /(.)(?=\1)/
        ? "double!\n"
        : "not double!\n";
----
not double!
double!