#!/usr/bin/perl -w
use Benchmark;

$email = '<silvers@op.net>';

Benchmark::cmpthese(100000000,
    {   
        '.*'    => sub { $email =~ m/.*?\<(.*?)\>/ },
        '^>'    => sub { $email =~ m/<([^>]+)>/    }
    }
);