>perl -wMstrict -le
"my ($chosen_day) =
   (map { (my $s = $_) =~ s/\s{2}/ /;  $s } ('April  1, 2009'))[-1];
 print $chosen_day;
"
April 1, 2009