perlpie$ perl -e '
    print "A ||118|AVIANN GILDED WILD HONEY. HM 75081701. 02-04-97"
        =~ /.+?\.\s+(.+)\.\s+[-\d]+$/
        ? "id is [$1]\n"
        : "id not found\n";
'
id is [HM 75081701]

##</code><code>##

perlpie$ perl -e '
    print "A ||118|AVIAN. GILDED WILD HONEY. HM 75081701. 02-04-97"
        =~ /.+?\.\s+(.+)\.\s+[-\d]+$/
        ? "id is [$1]\n"
        : "id not found\n";
'
id is [GILDED WILD HONEY. HM 75081701]

##</code><code>##

perlpie$ perl -e '
    print "A ||118|AVIAN. GILDED WILD HONEY. HM 75081701. 02-04-97"
        =~ /.+?\.\s+(\w\w(?:\s+|--)\d+)\.\s+[-\d]+$/
        ? "id is [$1]\n"
        : "id not found\n";
'
id is [HM 75081701]

##</code><code>##

perlpie$ perl -e '
    print "A ||118|AVIAN. GILDED WILD HONEY. HM 1234567. HM--75081. 02-04-97"
        =~ /.+?\.\s+(\w\w(?:\s+|--)\d+)\.\s+[-\d]+$/
        ? "id is [$1]\n"
        : "id not found\n";
'
id is [HM--75081]