How can I replace multiple whitespace with a single space in Perl?

Question

Why is this not working?

$data = \"What    is the STATUS of your mind right now?\";

$data =~ tr/ +/ /;

print $data;

Answer 1

Perl 5.10 has a new character class, \h, the stands for horizontal whitespace which is nice for this sort of thing:

 $s =~ s/\h+/ /g;