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]