use IO::String; my $io = IO::String->new; $tree->dump($io); $io->setpos(0); @lines = <$io>; # dump output in an array