将一个简单的文本传递给json

Question

如何使用linux脚本bash或任何其他脚本语言以编程方式将简单文本转换为json！

原始文字是这样的：

Question 1 ?
Answer1,answer2,answer3{C},answer4
Question 2 ?
{C}Answer1,answer2,answer3,answer4
Question 3 ?
Answer1,answer2{C},answer3,answer4
...

实际上我成功转换了它，但现在我需要为每个问题更新正确的值到{C}标记的正确答案编号！

{
    "introduction":"My Quiz", 
    "questions":[
{"question":"Question 1?", 
        "answers":["answer1","answer2","answer3{C}","answer4"],
        "correct":2},
{"question":"Question 2?", 
        "answers":["{C}answer1","answer2","answer3","answer4"],
        "correct":2}
    ]
}

有什么想法吗？

Answer 1

my ($correctans) = grep {s/.*(\d).*/$1/ if m/C/} (my @answers = qw({C}Answer1 answer2 answer3{C} answer4));