Le nom d'un PC peut contenir des points

root/usr/bin/samba-db-logd

@@ -77,7 +77,7 @@ while (defined(my $line=$tail->read)){
         $action, $status, $access_mode, $file_src, $file_dst) = undef;
 
     # Oct 12 17:20:24 sme8 smbd[11176]: admin|192.168.7.50|pc10-45|intranet|mkdir|Nouveau dossier
-    if ($line =~ m/^\w+\s\d+\s\d+:\d+:\d+\s\w+\ssmbd\[\d+\]:\s+(\w+)\|(\d+\.\d+\.\d+\.\d+)\|(\w+)\|(\w+)\|(\w+)/){
+    if ($line =~ m/^\w+\s\d+\s\d+:\d+:\d+\s\w+\ssmbd\[\d+\]:\s+(\w+)\|(\d+\.\d+\.\d+\.\d+)\|([\w\.]+)\|(\w+)\|(\w+)/){
         $username = $1;
         $client_ip = $2;
         $client_name = $3;