Select Code to Download

my $str = "((A,B,(C,D,(E,F),G),H),(I,J,K))";
our @nodes;
...
    )*
    \)
}x;

#!/usr/bin/perl

...
        }
    }
}