my $input = 0x916CD; #595661 my @unpacked = unpack "VV", $input; print(join ", ", @unpacked); >>909457717 #0x36353935 #### Dec: 825_636_405, 14_645 Hex: 0x31363635, 0x3935