#!/usr/bin/perl
# /usr/local/sbin/blocker.pl
while (<>) {
  if ( /.*\[1:1810:12\].* -> ((\d{1,3}\.){3}\d{1,3})/ )/ ) {
    system "echo $1 > /proc/net/ipt_recent/BLOCK";
  }
}