#!/usr/bin/perl
#
# mailExtractIP
#
# Originating host IP extraction from mail headers coming from STDIN
#

my @orgheaders;
my @fixedheaders;


while (<STDIN>) {
	chomp();
	push(@orgheaders,$_);
}

for (@orgheaders) {
	if (/^\s/) {
		s/^\s+/ /;
		$fixedheaders[$#fixedheaders] .= $_;
	} else {
		push(@fixedheaders,$_);
	}
}

for (@fixedheaders) {
	if (/^Received:/) {
		($matchIP) = /^Received: from.*\[(.*)\].*/;
		print $matchIP;
	}
}