Uh, hello? I just ran this code:

 
@lines = <DATA>; 
 
@result = map /<.*?>/g, @lines; 
result(1); 

### rest deleted ###

sub result { 
    print"\nResults",pop,"\n"; 
    print "$_\n" for @result; 
    @result = (); 
} 
  
__DATA__ 
aa<aa@aa.com>bb<bb@bb.com>cc<cc@cc.com> 
dd<dd@dd.dd>ee<ee@ee.com>ff<ff@ff.com>
[download]

and it produced this result, which appears perfectly fine:

Results1
<aa@aa.com>
<bb@bb.com>
<cc@cc.com>
<dd@dd.dd>
<ee@ee.com>
<ff@ff.com>
### rest deleted
[download]

What part of Sadly your example fails to produce the desired result :-( am I failing to understand?

-- Randal L. Schwartz, Perl hacker