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