Help for this page

Select Code to Download

Select or download this

$tcl_data =~ s/([^{}\s]+)/'$1',/g;    # quote words + comma
$tcl_data =~ s/{/[/g;                 # start list
...
use Data::Dump 'pp';

pp @perl_arr;

Select or download this
```
(
  [
...
    ],
  ],
)
```