Sorry, that doesn't work. The solution that really works is above: grep {length > 1} $aKnosID =~ /(([a-z])\2+)/g;