set filename [file join /d Vivia Ergasies cat log-qualifying.txt]
set logfile [open $filename r]
fconfigure $logfile -translation crlf
set logdata [read $logfile]
set idx [expr {[string first "DAY " $logdata] + [string length "DAY "]}]
set today [string range $logdata $idx [string first "\n" $logdata $idx]]

------------ log-qualifying.txt ---------
^M
   GAME STARTED^M
^M
   DAY 0^M
^M
------------

(amsn) 26 % set idx [expr {[string first "DAY " $logdata] + [string length "DAY "]}]
1786
(amsn) 27 % set today [string range $logdata $idx [string first "\n" $logdata $idx]]
0

(amsn) 28 %