print "bad monkey!" if $pass =~ /(.)\1\1/;