Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
FD02, 3539, 700B, 1
```