Select Code to Download

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

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