#!/usr/bin/perl -w
$test = 'email user <emailuser@emailaddress.com>';
$test =~ /\<([\.-A-Za-z]+\@[-A-Za-z]+\.[A-Za-z]+)\>/;
print $1;