typomaniac has asked for the wisdom of the Perl Monks concerning the following question:
if (lc($p)=~( /(.)\1{2}/ )) { [download]