問題 36 に別解を 2 つ追加しました

Ruby はブロック付きの gsub を、Perl は s///ge を使ってみました。

Author: kariya-mitsuru

answer/36.md

@@ -7,3 +7,12 @@ $ cat message.txt | sed 's/)(/)\n(/g' | grep -P '^(\(\g<1>\)|[^()]+)$' | tr -d '
 別解1（中村）$ cat message.txt | sed -E 's/\)\(/)\n(/g' | awk '{print gsub("\\(", ""), gsub("\\)", ""), $0}' | awk '$1==$2{printf $3}' | xargs
 別解2（eban）$ cat message.txt | sed 's/)(/)\n(/g' | sed ':a;s/(\([^)]\+\))/\1/;ta;/[()]/d' | paste -sd ''
 ```
+
+ ### 読者別解
+
+ by [kariya-mitsuru](https://github.com/kariya-mitsuru)
+
+```
+別解3 $ ruby -pe 'gsub(/(\(*)([^)]*)(\)*)/) { $2 if $1.size == $3.size }' message.txt
+別解4 $ perl -pe 's/(\(*)([^)]*)(\)*)/$2 if length $1 == length $3/ge' message.txt
+```