in reply to Re^2: [OT] - Mutilated email addresses (not Perl)
in thread [OT] - Mutilated email addresses (not Perl)

I'd suspect that the bit being duplicated/appended is /^([a-z.]+)/i. That is, alpha and dot. Which kinda looks like someone's naive take on what domain names — and user names — can look like.

If so, then you can strip off that extraneous bit with something like: s/^(([a-z.]+).*)\2$/\1/