Select Code to Download

#!perl -w
use strict;
...

my @out = intToB5($word);
print "out = ", join(", ", @out), "\n";

word = 17314053 = 0x01083105 = 0b000001000010000011000100000101
out = 1, 2, 3, 4, 5