cal aug 2009 | perl -nae '$w=$weeknum=1; @d=split if $.==2;if($.==$w+2){for(0..6){if(defined($F[$_])){$_-=@F if $w==1;print "$d[$_] "}};print "\n" if @F!=0}'