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