(my ($a, $b) = split /:/, $_, 5) == 4 or next;