'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";