Help for this page
($a, $b) = split /:/
($a, $b) = split /:/, $_, 3
(my ($a, $b) = split /:/, $_, 5) == 4 or next;