C:\@Work\Perl>perl -we "print oct do { local $\" = '';  qq(0b@ARGV) }"
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2147483648
C:\@Work\Perl>perl -we "print oct do { local $\" = '';  qq(0b@ARGV) }"
0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
2147483647
C:\@Work\Perl>perl -we "print oct do { local $\" = '';  qq(0b@ARGV) }"
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
2147483649
C:\@Work\Perl>perl -we "print oct do { local $\" = '';  qq(0b@ARGV) }"
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1
C:\@Work\Perl>perl -we "print oct do { local $\" = '';  qq(0b@ARGV) }"
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0