{
    local $/ = "}\n";
    while (<>) {
        s/^"\d+"/"$."/;
        print;
    }
}