$string =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs