@splitted=split(m!\<\/Text\>!, $text);