if( /^(\d+\.\d+)\|/ ){
  $additive_GU_value += $1;
  $num_GU_processed++ ;
}

##</code><code>##

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