You could use a wildcard Find/Replace, where:
Find = ^13[! .]*[ .][! ]@ [! ]@ [A-Z]*^32
Replace = ^&^t
The data you've posted, though, aren't entirely consistent, as there is no space between the first two words and sometimes between what it appears should be the 2nd & 3rd words. the above F/R code will cope with the first issue but there's no fix for the second issue.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]