if ( wantarray ) {
    my @a = split "\n", $r;
 #   chomp( @a );
    return \@a;
  } else {
    return $r;
  }