diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index f2496126e..dcf2e7e30 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -4571,7 +4571,7 @@ perlSyntaxCheck($%)
 
   my $psc = AttrVal("global", "perlSyntaxCheck", ($featurelevel>5.7) ? 1 : 0);
   return undef if(!$psc || !$init_done);
-  return undef if($exec !~ m/^{.*}$/s);
+  return undef if($exec !~ m/^{/);
 
   $exec = EvalSpecials("{return undef; $exec}", %specials);
   my $r = AnalyzePerlCommand(undef, $exec);