my $string = 'i_motorart integer,d_kw decimal(7,2),i_kat integer';
my @werte  = split /,/, $string;
print "$_\n" for my @werte;