Select Code to Download

sub extract_text {
   $_[0] =~ s/^((?:..)*)\0\0//s or die;
...
my $address     = extract_text($bytes);
my $zip_code    = extract_text($bytes);
my ($z)         = unpack('V', substr($bytes, 0, 4, ''));

my @fields = $bytes =~ /
   ^
...

$_ = decode('UTF-16le', $_) for @fields[0,1,2,5,6];
$_ = unpack('V', $_)        for @fields[3,4,7];