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