die "Not a binary number" if $binary =~ /[^01]/