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

You can also use tr with the "squash" option, which will remove duplicate replaced characters. See perlop for details.

my $s = "foo      bar   fubb";
$s =~ tr/ //s;