use strict;
use warnings;
use Data::Dumper;


my $blub = "hund:bello,12,w";
my $blab = "katze:mini,m";

for ($blub, $blab) {
    if (/^ (?<t>hund)  : (?<n>[^,]*) , (?<g>\d+) , (?<s>m|w)  $ |
         ^ (?<t>katze) : (?<n>[^,]*) ,             (?<s>m|w)  $  /x) {

         print Dumper \%+;
    }
}