Hm, I think this IPv6 regex stuff should be tested and adopted in Regex::Common::net. I think Abigail is the maintainer of that package on CPAN.

use Regex::Common;
$x =~ /$RE{net}{IPv6}/;
[download]