use POSIX;s/\d+/strftime"%d%w,%B",(0)x4,$&,$'-24/e,formline$/.('@> 'x7x/.,/.$/)x7,Su,Mo,Tu,We,Th,Fr,Sa,('')x(($&-$`+formline'@'.'|'x19 .'@',$')%7),1..$`for<>;print$