есть вот такой метод из старого Типографа

Spearance 06.10.2016 17:52

########################################
@hyphenInsert[text][locals]
$hyp[&shy^;]
$A[а-яё]
$G[аеёиоуыэюя]
$S[бвгджзклмнпрстфхцчшщ]
$X[йъь]
$result[$text]
$result[^result.match[([$X])([$A][$A])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$G][$S][$S])([$S][$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$G][$S][$S])([$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$G][$S])([$S][$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$S][$G])([$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$G][$S])([$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$S][$G])([$G][$A])][ig]{${match.1}${hyp}$match.2}]
### End @hyphenInsert