#!perl -pl
use Time'Piece;$_=($t=gmtime Time'Local'timegm+(/ /)x4,$'-1,$`)->month." $`
@{['   'x@$t[6],1..$t->month_last_day]}
";s/ \d\b/ $&/g;s/.{21}\K
?/
/g