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$\x01
Note that non-ascii characters in the above source code will be escaped (such as \x9f).