Есть функция:

на выходе переменная $regs;
[fF+])([uU+])([cC+])([kK+])  // Слово Fuck
[1] => ([cC+])([uU+])([nN+])([tT+])
[2] => ([dD+])([iI+])([cC+])([kK+]) 
[3] => ([sS+])([hH+])([iI+])([tT+])
[4] => ([bB+])([iI+])([tT+])([cC+])([hH+])
[5] => ([cC+])([oO+])([cC+])([kK+])
[6] => ([mM+])([oO+])([tT+])([hH+])([eE+])([rR+])([fF+])([uU+])([cC+])([kK+])([eE+])([rR+])
[7] => ([sS+])([lL+])([uU+])([tT+]) 
[8] => ([pP+])([uU+])([sS+])([sS+])([yY+]) 
[9] => ([pP+])([rR+])([iI+])([cC+])([kK+])

Как мы видем каждое матерное слово разбиваеться на буквы и получем большую и маленькую букву после чего начинаем искать в тексте до тех пор пока весь текст не проверим на маты, всё работает отлично но когда я беру с базы 1500 записей слов то получаеться весь алфавит есть и через функцию не проходят слова
Помогите улучшить механизм регулярки! спасибо

есть вариант проще и быстрее.
перевести в нижний регистр.
убрать все повторяющиеся буквы("fuucckk"=> "fuck").
сравнить с эталоном.
не защищает от неграмотных или хитроумных("fukk", "fack" etc)
есть вариант правильнее, но напряжнее. 
модерация.

да я всё понемаю как сделать да вот записать не могу с логикой проблем нет! 
Если можно пример пожалуйста   

по мне так проблему "асамБЛЯ" можно решить только модерированием, "велик и могуч Русский язык".. и регулярные выражения тут не помогут, разве что сделать словарь с определенными словами..