my $a="ttttest"; # Нужно определить 4 подряд идущих символа if ($a =~ /([a-z])\1{3}/ ){ print "4 совпало.\n"; } где, \1 - обратная ссылка на совпадение в скобках, {3} - повтор 3 раза.