#!/usr/bin/perl

while (<STDIN>) {
  next unless (m/sendmail.* from=.* relay=/);
  (@line) = split /,/;
  $relay = pop(@line);
  $relay =~ m/\[(\d+\.\d+\.\d+\.\d+)\]/;
  print $1,"\n" if ($1);
}