perl -MEmail::Valid::Loose -nle 'print $1 if /450 <($Email::Valid::Loose::Addr_spec_re)>/' < /var/log/mail/info


##</code><code>##

perl -nle 'print $1 if /450 <([^\>]+)>/' < /var/log/mail/info