my @list = 
  grep { length }
  map { chomp }
  qx(p4 -p $P4PORT groups);