C:\>perl -E "use warnings; my @strings = ('12345 defg', 'abc efg hijk lmnop', 'xyz defg abc'); for my $string(@strings) { if($string !~ m/defg/) {say $string;}}" abc efg hijk lmnop