# SPLIT THE IP-ADDRESSES INTO FOUR =STRINGS= BY
# THE PERIOD CHARACTER.
my ($a1, $a2, $a3, $a4) = split('.', @$a);