print "good string\n" if $_~~ /^({(?:[^{}]++|(?1))*+})/;