my ($first, $second) = split /::/, $readline, 3;

##</code><code>##

my (@fields) = split /::/, $readline;