sub reduce_whitespace { $_[0] =~ s/\s+/ /g }
   $text = 'black    cat';
   reduce_whitespace($text);
   print $text;

   > black cat