на regexp'ах вполне реально искать все до @
Реализуется и на пхп и на перле.
Только я в них не силен,нужно пробовать...