in reply to get value from a awk system command

The Perl equivalent of the awk command itself is

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