@l=split//,$date;pop @l;print join"",@l;