Re^2: How would you rewrite this?

Or better yet:

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

Comment on Re^2: How would you rewrite this? Download Code