my $iter = find_paths($tree, $regs, 3,0,0);

while (my ($route) = $iter->()) {
   for my $node (@$route) {
      print(join(',', @$node), "\n");
   }
   print("\n");
}