my $chosen_day = join " ", split /\s+/, "April 1, 2009";

##</code><code>##

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