title: How can I replace multiple whitespace with a single space in Perl?
body: <p>Why is this not working?</p>
  
  <pre><code>$data = "What    is the STATUS of your mind right now?";
  
  $data =~ tr/ +/ /;
  
  print $data;
  </code></pre>