open (Struct, "N_structures.txt");
while (<Struct>) {


/(\d+).*/;

$number = $1;

         open (info_web, "<" . "$number" ."_info.txt");
           $i=1;
            while (<info_web>) {
            if (/^(\d+\.\d+)\D/) {$GU_web = $1;}
            if ($i >1) { last;}
            print "$GU_web\n";
            $i++;  
                            }
         close (info_web);

          #open (image, "<" . "images/" . "$number" . "gif");
          
          $image = <IMG SRC="images/$number.gif">;

          open (name, "<" . "gly_structures.txt");

                 while (<name>) {
                                  ($ref_num, $glycan_name) = (split /|/, $_); 

                                  if ($ref_num == $number) {$structure_name = $glycan_name;} 
                                   

                                 }

$insert_html = <td>$GU</td> <td>$image</td> <td>structure_name></td>

                   }