>perl -wMstrict -le
"my $be24s = qq{\x01\x02\x03\x04\x05\x06\x07\x08\x09};
 printf qq{%08lx  }, $_ for unpack_be24($be24s);
 sub unpack_be24 {
   my ($s) = @_;
   return map unpack('N', qq{\x00$_}), unpack '(a3)*', $s;
   }
"
00010203  00040506  00070809