#!perl -pla $_=2>>grep!($-^=$_)|$-&$--1|!($-=$_),@F