or
# ps -aux | grep '(httpd|named)' | grep -v grep
or
#!/usr/bin/perl
@ps = qx(ps aux);
@httpd = grep {/httpd/} @ps;
@named = grep {/named/} @ps;
print "httpd's:\n\t", join("\n\t", @httpd),
 "\nnamed's:\n\t", join("\n\t", @named), "\n";