if ($word =~ /(.)\1/) ...