$string =~ s/<[^>]*?>//g;