perl -pi.bak -e "s/([^;]{30})[^;]+/$1/g" exportiert.csv