Select Code to Download

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

Net::IFv4Addr:
23.23.109.103 is good
1.2.3.4.5.6 is good
Regexp::Common:
23.23.109.103 is good