perl -a -F/;/ -ne "print if $F[2]==1" file.csv