diff --git a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm
index 31e05706b..f8d9fe134 100755
--- a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm
+++ b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm
@@ -12,7 +12,8 @@ sub lmLog {
     die("Level is required") unless ($level);
     my $call;
     my @tmp = caller();
-    my $module = $tmp[0] =~ s/.+:://gr . "($tmp[2]): ";
+    (my $module = $tmp[0]) =~ s/.+:://g;
+    $module .= "($tmp[2]): ";
     unless ( $level eq 'debug' ) {
         $call = "$tmp[1] $tmp[2]:";
     }