in reply to Re: using pack() to build a 16 bit word
in thread using pack() to build a 16 bit word

Note that whitespace in bitstrings is irrelevant, so if it makes your debugging easier to do, you can always insert some spaces in that sprintf line. 
--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/

[download]

In Section Seekers of Perl Wisdom