$data =~ s/<.*?(\(~ .*? ~\)).*?>/$1/g