Select Code to Download

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

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

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

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