my ($kind, $info) = split /:/, ..., 2;

my ($name, $weight, $gender);
if ($kind eq 'hund') {
  ($name, $weight, $gender) = split /,/, $info, 3;
}
else {
  ($name, $gender) = split /,/, $info, 2;
}