in reply to Repeat Chars in Password

if (lc($p)=~( /(.)\1{2}/ )) {

[download]

In Section Seekers of Perl Wisdom