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;