Help for this page
if( /^(\d+\.\d+)\|/ ){ $additive_GU_value += $1; $num_GU_processed++ ; }
} # foreach $additive_GU_value -= $value; close (COM);