<:
my @table = qw(
- >: origineel: zee-: meer_water: aardig: anders: #:
+ >: origineel: zee-: meer_water: land/aardig: anders: #:
>hond: hond zeehond waterhond?? prairiehond vleerhond #rodehond
>kat: kat zeekat meerkat cat_325? vliegende_kat #tijgerkat
- #>haas: haas zeehaas waterhaas aardhaas? ossenhaas? #
- >muis: muis zeemuis waterspitsmuis aardmuis vleermuis #
+ #>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?? mierenegel #
+ >egel: egel zee-egel wateregel? aardegel?? mierenegel #
>varken: varken zeevarken waterzwijn aardvarken stekelvarken #
>koe: koe zeekoe meerkoetje aardekoe?? koedoe #haiku?
- >paard: paard zeepaardje nijlpaard aardpaard?? luipaard #
- #>hoorn: eenhoorn zeehoorn zee-eenhoorn? aardhoorn? neushoorn #eekhoorn
- #>bra: bra(ssière)? zebra waterbra? aardbra? cobra #sabra
- #>olifant: olifant zeeolifant waterolifant? landolifant? # #
+ >paard: paard zeepaardje nijlpaard aardpaard?? luipaard #tijgerpaard
+ #>hoorn: eenhoorn zeehoorn zee-eenhoorn? bergahorn 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?? mierenleeuw #
- >wolf: wolf zeewolf waterwolf? aardwolf korenwolf #buidelwolf
+ >wolf: wolf zeewolf waterwolf?? aardwolf korenwolf #buidelwolf
>haan: haan zeehaan waterhaan rotshaan sprinkhaan #wilde_haan??
- #>pad: pad zeepad? waterpad? landpad schildpad #paddenstoel
- #>draak: draak zeedraak waterdraak aarddraak? komododraak #
- #>vlo: vlo strandvlo watervlo aardvlo vlok? #
- #>mot: mot zeemot? watermot aardmot? marmot #
- #>bij: bij zeebij? waterbij aardbei # #
+ #>pad: pad zebrapad? waterpad? landpad schildpad #paddenstoel
+ #>draak: draak zeedraak waterdraak - komododraak #
+ #>vlo: vlo zeevlo watervlo aardvlo - #vlok?
+ #>mot: mot marmot watermot bergamot - #
+ #>bij: bij - waterbij aardbei moerbei hommelbij
);
if (exists $get{r}) {
say '</tr>' if $name;
print "<tr>";
}
+ $name =~ s/^-$//;
my ($img) = $name =~ /^([\w-]+)/;
$name =~ y/_/ /;
if ($name =~ s/:$//) {