$data .= $_ =~ /\s0$/ ? 0 : 1 while <DATA>;