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