system("clear");
use Geo::IPfree;
use Regexp::Common qw/net/;
use strict;
use warnings;

#my $file = 'MKS_1.txt';
open my $in, '<:raw', 'Sample_1.txt' or die;
open my $out, '>:raw', 'Google_1' or die;
my @IPPs;

	while (my $line = <$in>) {
	#print "Working.... ... .. . \n";
	
	#my ($ip) = $line =~ /(?: $RE{net}{IPv4}) ( \d+ [ ] ms \s+ ){3}/msx;
	my ($ip) = $line =~ /(?: \d+ [ ] ms \s+ ){3} ($RE{net}{IPv4})/msx;
	#$ip = @IPPs;
	print {$out} "$ip\n" if defined $ip;
	}

open (my $fh, "<", "Google_1.txt");
my @file_array;
while (my $line = $fh){
	chomp($line);
	push (@file_array, $line);
}

print "@file_array \n";