Perl 如何根据某些条件拆分csv文件并写入新文件？

我需要像下面这样的文件，我需要获取title的值（在文件中多次出现）并将其存储在单独的文件中

{"card":{"cardName":"43SCX4","portSignalRates":["43SCX4-L-OTU3","43SCX4-C-TENGIGE","43SCX4-C-OTU2","43SCX4-C-FC8G","43SCX4-C-STM64","43SCX4-C-OC192"],"listOfPort":{"43SCX4-L-OTU3":{"portAid":"43SCX4-L-OTU3","signalType":"OTU3","tabNames":["PortDetails","OTU3e2Details"],"title":"OperationalMode",{"label":"Regen","value":"regen"}],"label":"Regen","value":"regen","checked":"","enabled":"true","selected":""},{"type":"dijit.form.Select","name":"Frequency","title":"Transmit Frequency "}}}}

---

我试过使用“awk-F，{}”示例，我可以拆分，但无法迭代并将其放入另一个仅“title”的文件中“***”

通过grep和-oE选项

$ grep -oE '\"title\":\"[^"]*"' file
"title":"OperationalMode"
"title":"Transmit Frequency "

如果您想获得Title的值，请使用lookback

$ grep -oP '(?<=\"title\":\")[^"]*' file
OperationalMode
Transmit Frequency 

---

$grep-oP'（？它不是csv文件。它是json。请注意perl的json解析器。我使用了grep-oP'（？@user3271040，只需使用OR运算符。
grep-oP'（？o/p作为文件名：name不清楚，如果您有任何疑问，请作为另一个问题提问。ex:10XANY10G_1.json:GHz的最大频率10XANY10G_1.json:up 10XANY10G_1.json:up 10XANY10G_1.json:down