perl -le'{@l=localtime($t-=((localtime$t)[3]-1)*86400);$t+=(($l[6]<3?7:14)-$l[6]+2)*86400;$t<time?($t+=2592000,redo):print$..localtime$t}'