Select Code to Download

            (($this_mail) = ($this_in =~ /CN=(.*),CN=ExternalContacts/
+gio));

print ">>>$this_mail<<<\n";