$teststring =~ s/hello\s*$RE{balanced}{-parens=>'{ }'}\s*$RE{balanced}{-parens=>'{ }'}/hi/;
#teststring: start hi end