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