perl -lane 'print if abs($F[1] - $F[2]) >= 1' infile > outfile