foreach (qw( genre detail link tos )) {
   $data->{$_} = pack('c*', $data->{$_});
   $data->{$_} =~ s/\x00.*//;
}