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