#!/usr/bin/env perl
# Keep only lines with even first number
# rok.zitko@ijs.si, June 2013

while (<>) {
  ($x,$y) = split;
  $x % 2 == 0 or next;
  print;
}