I suggest you write out in English how to do it, and then translate that English to Perl.
In reply to Re: is today a friday by PreferredUserName in thread is today a friday by baysbenj