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