my $QNAME= "www.google.com"; 
 
my $QNAME_packed = '';
for my $part ( split( /\./, $QNAME ), '' ) {
   $QNAME_packed .= pack( 'C/a*', $part );
}