Select Code to Download

perlpie$ perl -e '
    print "A ||118|AVIANN GILDED WILD HONEY. HM 75081701. 02-04-97"
...
        : "id not found\n";
'
id is [HM 75081701]

perlpie$ perl -e '
    print "A ||118|AVIAN. GILDED WILD HONEY. HM 75081701. 02-04-97"
...
        : "id not found\n";
'
id is [GILDED WILD HONEY. HM 75081701]

perlpie$ perl -e '
    print "A ||118|AVIAN. GILDED WILD HONEY. HM 75081701. 02-04-97"
...
        : "id not found\n";
'
id is [HM 75081701]

perlpie$ perl -e '
    print "A ||118|AVIAN. GILDED WILD HONEY. HM 1234567. HM--75081. 02
+-04-97"
...
        : "id not found\n";
'
id is [HM--75081]