#!/usr/bin/perl

use strict;
use warnings;

my $bitstring1 = shift @ARGV || '10010010111';
my $bitstring2 = shift @ARGV || '01101011010';

my $number1 = oct "0b$bitstring1";
my $number2 = oct "0b$bitstring2";

printf "%s + %s = %b\n", $bitstring1, $bitstring2, $number1 + $number2;