$_ = $word;
                s/_/ /g;
                print "ID: $_\n";