open (COM, "2_info.txt");
      open (MEAN, ">" . "/2_mean_info.txt");
       foreach  (<COM>){

last LINE if /^d$/;??

if (/^\d+\.\d+.*/)
    {$value = (split /\|/, $_)[0];}

        $additive_GU_value += $value;
        $num_GU_processed++ ;
              
} # foreach
close (COM);

print "Add = $additive_GU_value\n";

##</code><code>##

10|
20|
45|
1