yea . I kinda knew that when I wrote it . doh ! Sorted it now anyway with a hohoh

    if (/entity\s+(\w+)\s+is/i) {
      $entities{$1}{'name'} = $1;
      $entities{$1}{'fname'} = $vhd_file;
    }
[download]

ta