$_ = "<p>text comes here </p><p>text within after in  attorney’s fees,  Inc’s principle</p>";

s/<[^>]+>//g;
s/[^[:ascii:]]+//g;

print;