Window 0x800022:
  Machine:  genus
  Name:  xterm
  Icon Name:  xterm
  Command:  xterm -u8 -geometry 156x62+190+-2
  Instance/Class:  xterm/XTerm
Window 0xc00022:
  Machine:  genus
  Name:  ~
  Icon Name:  psh
  Command:  xterm -e /usr/bin/psh
  Instance/Class:  xterm/XTerm
Window 0xe00001:
  Machine:  genus
  Name:  Gecko
  Icon Name:  mozilla-bin
  Command:  mozilla-bin
  Instance/Class:  mozilla-bin/Mozilla-bin

##</code><code>##

open my $fd, 'xlsclients -la|' or die "open: $!";
WHILE: while (1) {
  my @para;
  foreach (1..6) {
    my $line = <$fd>;
    defined $line or last WHILE;
    push @para, $line;
  }
  print "@para\n";   ## quotes intended in this small example
}
close $fd;