You can chop one character off like perl -e'printf"%03b %b\n",$_,rand 2for 0..7'.