use strict;
use warnings;

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

##</code><code>##

FD02, 3539, 700B, 1