$message = s/<[^>]*>//g;