### Haxor ###
#!/usr/bin/perl -w

use strict;
use warnings;

my $flag = 0;
my $hacklist = "hack.txt";
my $date = 'Date:	';
my $octet = '(\d{1,3}\.){3}\d{1,3}';

open HACK, $hacklist or die "Can't Open $hacklist";
my @hack=<HACK>;
close(HACK);

foreach (@hack) {
	
	if (s/$date//){
		print;
		$flag = 0;
	}	
	if (/$octet/ and !$flag){
		print STDOUT $_;
		print "\n";
		$flag = 1;
		}
	}	


##</code><code>##

Thursday, December 13, 2001  07:53 AM
Subject:        FW: Please disconnect 208.202.183.42 thanks.

Monday, December 17, 2001  08:56 AM
Subject:        FW: Please disconnect 213.14.199.133 thanks.

##</code><code>##

Thursday, December 13, 2001  07:53 AM
208.202.183.42

Monday, December 17, 2001  08:56 AM
213.14.199.133