Not sure if that previous example will work if your text file is all one line like it is in your example. I'd recommend using grep() (this is also untested code):

# this is a lazy regexp - you can refine it better, I'm sure.
# $line is the line of text from your example
@emails = grep ( /.*\@.*/, split( /\|/, $line ) );
[download]

Jason

update - before the sanitization of the data above, it was all in one line. No, really! ;)