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