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