perl -E "my $string = 'abc efg hijk lmnop'; if($string !=~ m/defg/) {say $string;}"
abc efg hijk lmnop