my $molform = <STDIN>;
$molform =~ s/[^a-zA-G0-9]//g;
my $molmass = new Chemistry::MolecularMass;
my $mass = $molmass->calc_mass("$molform");