#!/bin/sh

cat /var/log/exim/rejectlog | \
    grep "too many digits" | \
    perl -n -e 'if (/H=\(?(\S+?)\)?\s/){print("$1\n");}' | \
    sort | uniq | `dirname $0`/sort_access.pl