....
                elsif ($identnr =~ /^\d+\*$/)  {
                        suchen_wild()
                }
.....