Since you want "Nov" to be translated into "1 1", I'm guessing that you want to average the lowercase ordinal values of the first and third letters, find the difference between that and the ordinal value of the second letter, express that in binary, and then split that into digits. Here you go; hope it helps:
my @n = split '', lc('Nov');
my @arr = split '', sprintf "%0b",
(abs((ord($n)+ord($n))/2 - ord($n)));
say join ' ', @arr;
Available for small or large Perl jobs; see my home node.