$data .= do{ my ($i) = $_ =~ /\s(\d+)$/; $i <= 35 ? 0 : 1} while <DATA>;