grep (expr), @list;

##</code><code>##

grep ((expr), @list);

##</code><code>##

grep { block } @list;

##</code><code>##

    grep {
    	( -f "$path/$_" ) and 
        ( $_ =~ m/\.(java|xml|cpp|c|h|inc|pas)$/i ) and
        ( $self->Scan_File( "$path/$_", $out, $target )
    } @files );
    # Also scan any subdirectories.
    grep {
    	( ( -d "$path/$_" ) and 
          ( $_ !~ /^\.+$/ ) and # but avoid . and ..
          ( $self->parseDir( "$path/$_", $out, $target )
        )
    } @files;

##</code><code>##

------------
:Wq
Not an editor command: Wq