If you make it into a list assignment, then you can get rid of the [0] ...

my($chosen_day) = map{ s/\s\s/ /;$_ } ("April  1, 2009");
[download]