@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> 


##</code><code>##

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