my $molform = <STDIN>;
print "Molform before: [$molform]\n";

s/\s+$//, s/H(?![a-z])\d*//g for $molform;
print "Molform after: [$molform]\n";