For some reason, I am getting the following error. (I checked the file name this time.)

Can't call method "as_text" on an undefined value at C:\..\perl\treebu
+ilder.pl line 29.
[download]

line 29

$rec{$tds[2]->as_text}  = $tds[3]->as_text;
[download]

Sorry I couldn't get it to work right away.

Update: Wait, I think I see what might be making things hinky.

Update 2: I was working with the wrong batch of files, but even working with the right batch of files is causing the same error. I think it has something to do with the nested tables in some of the descriptions. For files without the nested tables, this works fine.

I am thinking that the following should go first with some way of having the tables within it written into the string it creates.

$rec{note}  = $fields[6]->as_text; #put nested tables in this one.
$rec{group} = $fields[0]->as_text;
$rec{type}  = $fields[1]->as_text;
[download]