$str = 'abac ~~~ afa~~~f';
$str =~ s|(?<!\s)\&\#x0007E\;\&\#x0007E\;\&\#x0007E\;(?!\s)|~~~|g;
print $str;

##</code><code>##

$str = 'abac &#x0007E;&#x0007E;&#x0007E; afa&#x0007E;&#x0007E;&#x0007E;f';
$str =~ s|(?<=\S)\&\#x0007E\;\&\#x0007E\;\&\#x0007E\;(?=\S)|~~~|g;
print $str;