for $ent in //entry[text:match-all(stem_morph_segm_phon, '.*\\.*')]
return $ent