It's somewhat unclear what you want (and consider a word), so here's some guesses
get 4th last word, word being stuff between spaces: $gettok($1-,-4,32)
get something that is between "[ " and " / today ]": $regex($1-,/\[ (\w+?) \/ today \]/)) and the word is in $regml(1)
