#!/usr/bin/perl

open FHAND, "<codes.txt";
foreach (<FHAND>) {
  chomp;
  chop;
  ($code,$stuff) = split("\t");
  ($stuff,$foo) = split(",",$stuff);
  ($stuff,$foo) = split("\\[",$stuff);
  ($stuff,$foo) = split("\\(",$stuff);
  ($stuff,$foo) = split("/",$stuff);
  $stuff =~ s/ //g;
  $stuff =~ s/\ //g;
  $stuff = uc $stuff;
  $code{$code} = $stuff;
}
close FHAND;
open FHAND, "<fodder.txt";
open OUT, ">out.txt";
foreach (<FHAND>) {
  chomp;
  print OUT $_,"\t",$code{$_},"\n";
}
close FHAND;
close OUT;