#!/usr/bin/env perl
use Modern::Perl;

my @n = split '', lc('Nov');
my @arr = split '', sprintf "%0b",  
    (abs((ord($n[0])+ord($n[2]))/2 - ord($n[1])));
say join ' ', @arr;