sub foo {
  my @tokens = split /\:\:/, shift;
  return ( q[], $tokens[0] ) if scalar( @tokens ) == 1;
  return ( $tokens[0], $tokens[1] ) if scalar( @tokens ) == 2;
  my $function = pop @tokens;
  return ( join( q[::], @tokens), $function );
}