-my @table = map {[split ' ']} grep {$_} split /\n(?!\s{3})/, q(
- >: origineel: zee-: meer_water: land/aardig: anders: #:
- >hond: hond zeehond scheepshond? prairiehond vleerhond #rodehond
- >kat: kat zeekat meerkat cat_325? vliegende_kat #tijgerkat
- #>haas: haas zeehaas waterhaas koolhaas? ossenhaas? #buidelhaas
- >muis: muis zeemuis waterspitsmuis aardmuis vleermuis #computermuis
- >rat: rat zeerat waterrat woestijnrat buidelrat #beverrat
- >egel: egel zee-egel wateregel? aardegel??=cactus mierenegel #kegel?
- >varken: varken zeevarken=bruinvis
- waterzwijn=capibara aardvarken stekelvarken #feestvarken?
- >koe: koe zeekoe meerkoetje aardekoe?? koedoe #haiku?
- >paard: paard zeepaardje nijlpaard (turn)paard? luipaard #tijgerpaard
- #>hoorn: eenhoorn zeehoorn zee-eenhoorn?=narwal
- bergahorn=esdoorn neushoorn #eekhoorn
- #>bra: bra(ssière)? zebra - - cobra #sabra
- #>olifant: olifant zeeolifant olifantsvis kamerolifant? - #olifantsoor
- >beer: beer zeebeer waterbeertje ijsbeer wasbeer #neusbeer
- >leeuw: leeuw zeeleeuw waterleeuw?? aardleeuw??=kameleon
- mierenleeuw #leeuwerik
- >wolf: wolf zeewolf waterwolf??=snoek aardwolf korenwolf #strandwolf=bruine_hyena
- >haan: haan zeehaan waterhaan rotshaan sprinkhaan #wilde_haan??=wildrooster
- #>pad: pad zebrapad? waterpad? landpad schildpad #paddenstoel
- >draak: draak zeedraak waterdraak=agame aarddraak?=戊辰
- komododraak=varaan #drakenkop
- #>vlo: vlo zeevlo watervlo aardvlo - vlok?
- #>mot: mot marmot watermot bergamot behemoth? #
- #>bij: bij - waterbij aardbei moerbei hommelbij
-);
-if ($Request eq 'standaard') {
- $table[ 9][4] = 'grasmodderpaard?=草泥马'; # replace turnpaard
- $table[18][1] = 'draak_'; # irl animal
-}
-
-@table = map {[split ' ']} grep {$_} split /\n/, q(
- >hond zeehond prairiehond
- >kat zeekat meerkat
- >muis zeemuis vleermuis
- >egel zee-egel mierenegel
- >varken zeevarken stekelvarken
- >koe zeekoe meerkoetje
- >paard zeepaardje nijlpaard
- >olifant zeeolifant olifantsvis
- >beer zeebeer wasbeer
- >leeuw zeeleeuw mierenleeuw
- >wolf zeewolf korenwolf
- >haan zeehaan sprinkhaan
- >mot marmot bergamot
-) if $Request eq 'beknopt';