Деление слов на слоги в php

function delslog($str)
 {$k=k_slog($str); //посчитаем количество слогов
 $mas=slog($str, $k); //разобьём слово на слоги
 $f=fopen("slogi.txt","a");//откроем файл slogi.txt 
 for($i=0;$i<count($mas);$i++) //для записи и 
 {//через «-» запишем в 
 $mas[$i].='-'; //него слоги
 fwrite( $f,$mas[$i]);}
 fclose($f);} //закроем файл

 function k_slog($str) //считает количество слогов
 {//бежим по строке
 for($i=0, $q=0; $i < strlen($str); $i++)
 if(glas($str[$i])) // если очередная буква 
 $q++; //гласная, увеличим счетчик
 return $q; } //вернём значение счетчика

function slog($s, $k) //разбивает слово на слоги
 {for($i=0, $q=0, $j=0; $i<strlen($s) 
 {if(glas($s[$i]) && $q==0)//если очередная буква
 { //гласная и первая
 $mas[$j].=$s[$i]; //припишем ее к слогу 
 $q=1; //установим флажок
 $i++; //перейдем на след. букву}
 else
 if(!glas($s[$i]) && ($i==0 || $q!=1 || (glas($s[$i-1]) && !glas($s[$i+1])) || $j==$k-1))
 /*если буква не гласная и: первая, или до гласной, или между гласной и согласной, или последняя*/
 {
 $mas[$j].=$s[$i];//припишем её к слогу
 $i++; //перейдем на след. букву}
 else 
 { $q=0; //иначе снимем флажок и
 $j++;} //перейдем на след. слог} 
 return $mas;} //вернём массив слогов

function glas($a) //проверяет, гласная ли буква 'а'
 {
 $gls='аеёиоуыэюя'; //Запишем строки из строчных и
 $glb='АЕЁИОУЫЭЮЯ'; //заглавных букв
 for($i=0; $i < 11; $i++)
 if(substr_count($gls,$a)>0|| //если 'а' входит
 substr_count($glb,$a) > 0)//в одну из строк
 return 1; // вернём 1
 return 0;}

<?
$text="признаны уязвимыми или вымирающими Международным союзом охраны природы";
#char patterns
$RusA = "[абвгдеёжзийклмнопрстуфхцчшщъыьэюя]";
$RusV = "[аеёиоуыэюя]";
$RusN = "[бвгджзклмнпрстфхцчшщ]";
$RusX = "[йъь]";
 
#main ruller
$regs[] = "~(". $RusX . ")(" . $RusA . $RusA . ")~iu";
$regs[] = "~(". $RusV . ")(" . $RusV . $RusA  . ")~iu";
$regs[] = "~(". $RusV . $RusN . ")(" . $RusN . $RusV . ")~iu";
$regs[] = "~(". $RusN . $RusV . ")(" . $RusN . $RusV . ")~iu";
$regs[] = "~(". $RusV . $RusN . ")(" . $RusN . $RusN. $RusV . ")~iu";
$regs[] = "~(". $RusV . $RusN . $RusN . ")(". $RusN . $RusN . $RusV . ")~iu";
$regs[] = "~(". $RusX . ")(" . $RusA . $RusA . ")~iu";
$regs[] = "~(". $RusV . ")(" . $RusA . $RusV  . ")~iu";
 
 
foreach($regs as $cur_regxp) {
        $text = preg_replace( $cur_regxp , "$1-$2" , $text);
}
var_dump($text);