If you're dealing with IPv6 addresses check out the Net::IP module for bringing them to the canonical form and other operations.

$ perl -l
use Net::IP;
my $ip = new Net::IP("FD02:3539:700B:1::FE");
print $ip->ip();
^D
fd02:3539:700b:0001:0000:0000:0000:00fe
[download]

 my $v = "FD02:3539:700B:1::FE";
 
 #way 1
 if ( $v =~ /^([0-9A-F]{4}):([0-9A-F]{4}):([0-9A-F]{4}):([0-9A-F]{1}):
+:([0-9A-F]{2})/ )
 {
    print "$1 - $2 - $3 - $4 - $5\n";
 }
 
 #way 2
 my @v = split /::?/, $v;
 print join (" + ", @v), "\n";
[download]

Thanks! That's it!

It may be that the following is what you want:

use strict;
use warnings;

my $str = 'FD02:3539:700B:1::FE';
my ($p1, $p2, $p3, $p4) = split /:/, $str;
print "$p1, $p2, $p3, $p4";
[download]

prints:

FD02, 3539, 700B, 1
[download]

Update: Ignore this, I missed that the OP was talking about a IPv6 address, not a MAC address.

Have a look at:

Regexp::Common::Net Mac address option

HTH.

One way to do this,

$t = 'FD02:3539:700B:1::FE';
if ($t =~ /^([^:]*):([^:]*):([^:]*):([^:]*)::([^:]*)/)
{
    print "$1\t$2\t$3\t$4\t$5";
}
[download]

This will match.

updated