### 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;
		}
	}