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