$body =~ s/<.+?>//g;