Hi true,

You can use the following to do what you want.

($n=unpack("B32", pack("N", 2100)))=~s/\d*(\d{8})/$1/;
print $n."\n";
[download]

Hope this helps

thinker