note Kenosis <p>Consider the following minor modifications:</p> <c> 'Co' => 58.933195 my @array = $form =~ /[A-Z][a-z]*\d*/g; if ($element =~ /([A-Z][a-z]*)(\d*)/) { my $mult = $2 || 1; $weight += ($eweight*$mult); print STDERR "Adding $1 ($eweight)* $mult\n"; </c> <p>Run on CoCO2:</p> <c> Adding Co (58.933195)* 1 Adding C (12)* 1 Adding O (16)* 2 Molecule: Co C O2 Weight of Co C O2 : 102.933195 </c> 1006165 1006179