You could try this:

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

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

print;
[download]

Have you read anything yet about perl regular expressions (perlretut and perlre)? You should -- the docs are really quite good.