use Date::Manip;

    local $/ = "\nDATE ";
    while (<>) {
      my @l = split /\n/;
      my @out;
      push @out, UnixDate( shift(@l), "%m/%d" ); # from Date::Manip
      for ( @l ) {
        my %r;
        @r{qw( pid user thr pri nice size res state time cpu comm )} = split;
        $r{'comm'} eq 'ns-httpd' and push @out, @r{qw( pid size )};
      }
      local $" = ",";
      print "@out\n";
    }