cat /var/log/mail/info | perl -n -e 'print $1, $/ if /450 <([^>]*)>/'