How about changing m/(\S*@\S*)/ to s/(\S*@\S*)\s*// and then looping until you get undef? (Sorry work calls or I'd be more thorough).

-Gryn