Select Code to Download

if ( $row->{parentid} =~ /^\0{4}$/ ) {
   # do something;
...
   $parent_hex = '0x0' . unpack 'H*', $row->{parentid};
   # do something else
}