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

##</code><code>##

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

##</code><code>##

open (input_file,"input.txt") || die"cannot open file"; 
open (output_file,"output.txt") || die"cannot open file";

$line = input_file;
while ($line ne "") {
@words = split(/[(,"]/,$line);
if($word[0]=~/write_x/)
        {
      foreach(@word)
  {
    print $index;
          if( $_=~/write_x/) {
          
          print output_file_ex ("writing.reg(\"$word2\").write($word[5,]$word[4]);\n");}
          
}
        else { 
 print output_file_ex ($line); }
    $line = <input_file>;
}