diff --git a/sheets/_perl/1line b/sheets/_perl/1line
index b783e7c..152ab68 100755
--- a/sheets/_perl/1line
+++ b/sheets/_perl/1line
@@ -380,7 +380,7 @@ perl -ne 'push @a, $_; @a = @a[@a-10..$#a]; END { print @a }'
 perl -ne '/regex/ && print'
 
 # Print only lines that do not match a regular expression
-perl -ne '!/regex/ && print'
+perl -ne '/regex/ || print'
 
 # Print the line before a line that matches a regular expression
 perl -ne '/regex/ && $last && print $last; $last = $_'