Replace split() with regex capture group

lbbe

@@ -107,9 +107,9 @@ while (<>) {
     }
 
     # dynamic queries
-    elsif ($qname =~ /.+\.$my_domain$/) {
+    elsif ($qname =~ /(?<residual>.+)\.$my_domain$/) {
         write_log("sending dynamic response for $qname/$qtype");
-        print handle_lb_request(split(/\./,$qname,2),$qtype,$qclass);
+        print handle_lb_request($+{residual},$my_domain,$qtype,$qclass);
     }
     print "END\n";