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