perl -MDate::Calc=:all -e'$|++;while(){$x=1993;$t=time;($y,$m,$d)=Localtime($t);$dd=Delta_Days($x,9,1,$y,$m,$d);$_=localtime$t;s/^(\S+\s)\S+\s\S+(\s\S+\s)\S+$/${1}Sep $dd$2$x/;print"\r$_\t";sleep 1}'