Select Code to Download

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

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