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