$string =~ s/ (?=[^{}]*})/_/g;