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