($a, $b) = split /:/

##</code><code>##

($a, $b) = split /:/, $_, 3

##</code><code>##

(my ($a, $b) = split /:/, $_, 5) == 4 or next;