Bradley,
Replace ^13[^32-^126]@ by [A-Z][a-zA-Z -]@, [A-Z][a-zA-Z ()]@^13 with a single ^13.
Basically, all it's doing is removing the "summary" line, accounting for " by " and "... by " and varieties of names I've seen at work, like hyphenated names, multiple last names, Jr, Sr, etc. and descriptive in parenthesis, like "(Guest)".
The other replacement part appends the time of the text to the end of the poster's name, instead of leaving them on two different lines.
That find/replace is:
Find:^13([1-9]{1,2}):([0-9]{2}) ([AP]M)^13
Replace with (minus the quote marks) **** " \1:\2 \3^13" NOTE there is a space at the beginning of the replacement, ie <space>\1:\2, etc. which is why I used the quote marks.
=================
P.S. I used the link you provided to up-vote restoring the way it was.