Select Code to Download

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

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