sub get_parents {
  my (@p, $o); 
  for (grep !/^$/, split ("/",$_[0])) {push(@p,"$o/$_");$o.="/$_"}
  return \@p;
}

##</code><code>##

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x12345678)))