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