$body =~ s/<[^>]*>//sg;