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

##</code><code>##

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

##</code><code>##


<input type="button" value="(~ something ~)">

##</code><code>##

<p> date: (~ something ~) </p>