use warnings;
use strict;

while (<DATA>) {
    chomp;
    my $concat;
    if (s/({.+})/{}/) { # replace curlies' contents with just curlies for now
        $concat = $1;
    }
    my @words = split /[(,]/;
    $words[2] = $concat if $concat;
    print "writing.reg($words[1]).write($words[3],$words[2]);\n";
}

__DATA__
write_x("top.inst1.inst2.reg",32'h30,status,"string");
write_x("mod.ins5.ins7.val",{24'h0,4'h2,variable1,variable2},status,"string");