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

##</code><code>##

[^<>]