$ perl -MO=Concise -e '
my @tokens = split /\:\:/, $ARGV[0];
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 );
'