#!/bin/perl

use strict;
use warnings;
use List::Util qw(reduce);

print reduce { $a + $b } split(//, sprintf "%b", <>);