perl -MData::Dumper -e 'print Dumper [split/\D,/, "i_motorart integer,d_kw decimal(7,2),i_kat integer"]'