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

##</code><code>##

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