<:
my @table = qw(
>: origineel: zee-: meer_water: land/aardig: anders: #:
- >hond: hond zeehond waterhond?? prairiehond vleerhond #rodehond
+ >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
>varken: varken zeevarken=bruinvis
waterzwijn=capibara aardvarken stekelvarken #feestvarken?
>koe: koe zeekoe meerkoetje aardekoe?? koedoe #haiku?
- >paard: paard zeepaardje nijlpaard aardpaard?? luipaard #tijgerpaard
+ >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
#>mot: mot marmot watermot bergamot - #
#>bij: bij - waterbij aardbei moerbei hommelbij
);
+$table[4 + 9*7] = 'grasmodderpaard?=草泥马' if $Request eq 'standaard'; # replace turnpaard
@table = qw(
>hond zeehond prairiehond
print "<tr>";
}
$name =~ s/^-$//;
- my ($img) = $name =~ /^([\w-]+)/;
+ my ($img) = $name =~ /([\w-]+)/;
$name =~ y/_/ /;
if ($name =~ s/:$//) {
# trailing colon indicates header text