@lines = <DATA>;

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

for (@lines)
{
    @result = /<(.*?)>/g;
}
result(2);

for (@lines){
    @match = /<(.*?)>/g;
    push @result, @match;
}
result(3);

for (@lines){
    push @result,$1 while /<(.*?)>/g;
}
result(4);

@result = map{/<.*?>/g}@lines;
result(5);    

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>