[Bioperl-l] Unrooting a tree

[Felix Schlesinger]

Hi,

I am reading a rooted tree in newick format from a string (i.e. a
bifurcation at the root) and would like to unroot it (i.e. a
trifurcation at the root). I tried getting a grandchild of the root
and adding it as a direct child, but that does not seem to work (the
root still only has two descendents and the tree structure gets messed
up). Is there a nice way to do this directly in bioperl? Doing it on
the newick string is possible of course, but not nice.

Thanks
  Felix