sub boo {
  my $a = shift;
  if ($a =~ /^(?:(.*)::)?(.*)$/) {
      return ($1 || '', $2);
  }
}