use Net::IPv4Addr qw(:all);
use Regexp::Common qw(net);

my @var = qw(23.23.109.103 12324.123.12.1 1.2.3.4.5.6);

print "Net::IFv4Addr:\n";
ipv4_chkip($_) and print "$_ is good\n" for @var;
print "Regexp::Common:\n";
/^$RE{net}{IPv4}$/ and print "$_ is good\n" for @var;