Select Code to Download

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

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