sub CollapseWhitespace {
  my $s = shift;
  return defined $s
    ? $s =~ s{ [\x00-\x20]+ }{ $+[0] - $-[0] == 1 ? '' : ' ' }xmsger
    : ''
    ;
  }