my ($date) = /(\S+)[^\n]*$/;