#!/usr/bin/perl -w
use strict;

my $hacklist = "hack.txt";


open HACK, $hacklist or die "Can't Open $hacklist";

my ($octet, $date);

while (<HACK>){
	$octet ||= $_ if /($hacklist =~ m~((\d{1,3}\.){3}\d{1,3})~)/;
	$date ||=$_ if /Date:/;
}

close HACK;

print $date;
print $octet;