use warnings;
use strict;
use Regexp::Common qw/net/;

my $regex = qr{ (?<ip> \b $RE{net}{IPv4} \b ) }msx;
my $filename = 'mylogFile.log';

open my $fh, '<:encoding(UTF-8)', $filename or die "$filename: $!";
while (my $line = <$fh>) {
	while ($line=~/$regex/g) {
		print "<", $+{ip}, ">\n";
	}
}
close $fh;