Select Code to Download

[
          {
...
          },
          
]

for my $i (0..$#responsetextall) {
 $responsetextall[$i] =~ s/]\[/,/g;
...
}
$workbook->close;
print "Spreadsheet saved.\n";