Select Code to Download

use Data::Dumper;
my $python = '[1,[2,3]]';
my $perl = eval( $python . ';' );
print Dumper( $perl );

$VAR1 = [
          1,
...
            3
          ]
        ];