print substr($_, 0, 1) unless /[^01]/;