my $t = "i_motorart integer,d_kw decimal(7,2),i_kat integer";
$t =~ s/(\D),(\D)/$1;$2/g;
print Dumper [split/;/, $t];