>perl -wMstrict -le
"my $chosen_day = join '', grep /\S/ .. /\s/, split //, 'April  1, 2009';
 print $chosen_day;
"
April 1, 2009