$text =~ s/\*([^*]+)\*/$1<\/em>/g;