C:\Dokumente und Einstellungen\sak>perl
print unpack("b*", pack("L", 3)); print "\n";
print reverse unpack("b*", pack("L", 3)); print "\n";
print join("", reverse split //, unpack("b*", pack("L", 3))); print "\n";
^Z
11000000000000000000000000000000
11000000000000000000000000000000
00000000000000000000000000000011

C:\Dokumente und Einstellungen\sak>