awk -v N=1 -F"," '$N ~ /^[0-9]{11}$/ {print}' pro3.csv >> proOUT.csv
awk -v N=1 -F"," '$N ~ /^[a-z,0-9]{36}$/ {print}' pro3.csv >> proOUT.csv
cat FileIN.csv | perl -e 'while(<>){ @words=split(/,/, $_); {if(@words[0]=$_="SLOVO".$_){ print $_; }}}' >> FileOUT.csv