$a = "word1:word2";
     ($firstword) = split(/::/,$a,2),shift;