#!/usr/bin/perl

while (<>) {
/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\b/;
print "$1:allow,RBLSMTPD=\"-Connections from this IP have been banned.\"\n";
}