print "Match!\n" if $string =~ m/([[:alpha:]])\1/; # Probably good.

##</code><code>##

print "Match!\n" if $string =~ m/([a-zA-Z])\1/; # Maybe bad!