Select Code to Download

my $string = join '', @temparray; # or even <FILE>

use SuperSplit;

$string =~ tr/}//d;
$nested_list = supersplit( ';','{',' ','\n','\n\n', $string );