If you just want one regex per rule this should work:

$_ = "294384333PL";
if ( /(.)\1{2}/ ) {
 print "Three Identical Chars in a ROW: $1";
}
[download]

-enlil