Select Code to Download

use Regexp::Common qw /net/;
...;
my @temp = grep {$RE{net}{IPv6}{-sep=>':'}{-style=>'HeX'}} @$records;
my @ip = grep {!/^[a-f0-9]{4}\:[a-f0-9]{4}\:ffff/i} @temp;

{-sep=>qr/[:.]/}