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