my $first = ( split /::/, $readline, 2 )[ 0 ];