The script doesn't work unless you change line 32 to read: if {[regexp {(Today.*?)FML} $fmlvar match fmlresult]} {
if {[regexp {(Today.*?)FML} $fmlvar match fmlresult]} {