#!/bin/sh

grep "Access from dial-up/dsl/cable relays denied" /var/log/exim/rejectlog \
    | perl -p -e 's/^\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d H=(\S+) \(\S+\) \[(\S+)\].+/$2\t$1/' \
    | sort | uniq