$tree = <>; chop($tree); 
while ($tree=~s/\(?([A-Z])([A-Z])\)?/\1/) {
    print $tree;
    print "\n";
}