Select Code to Download

while (<>) {
    /^\s*\[([^]]+)\]/ and push @left, $1;
...
}
print "Left  : $_\n" for @left;
print "Right : $_\n" for @right;