in reply to Match last word in a sentence
Thinking TMTOWTDI, $last_word = (split( /\s+/, $list ))[-1]
The cake is a lie. The cake is a lie. The cake is a lie.