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