diff -u -r a/File/Formula.pm b/File/Formula.pm --- a/File/Formula.pm 2009-05-10 15:37:59.000000000 -0400 +++ b/File/Formula.pm 2016-12-20 11:06:50.522099876 -0500 @@ -200,7 +200,7 @@ my $fh = $mol->formula_hash; $format =~ s/%%/\\%/g; # escape %% with a \ my $joiner = ""; - $joiner = $1 if $format =~ s/(?