sub complete_inchi_parse
{
my $inchi = shift;
my @inchibits = split(@/@,$inchi);