my $pattern = qr/^(?<t>hund|katze):(?<n>[^,]),(?<g>\d+),(?<s>m|w)$/;