#!perl -pa $_=':-'.chr 41-(grep$_%2,@F[0,2,4])%2