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