$data .= ($_ =~ /\s(\d+)$/ and $1 <= 35 ? 0 : 1) while <DATA>;