my $chosen_day = "April  1, 2009";
$chosen_day =~ s/\s\s/ /;

##</code><code>##

# Parenthesized assignment is bound to the substitution
(my $c = "April  1, 2009") =~          s/\s\s/ /;