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