my @numbers = grep {length > 1} $aKnosId =~ /(([a-z])\2+)/g;