next if $pass =~ /(.)\1{2}/;