sub tony_UCS {
  local $_ = reverse shift;
  my %longest; my $longest = 0; my $tohere = "";
  while (my $char = chop $_) {
    my $idx = index($tohere, $char);
    if ($idx != -1) {
      push @{$longest{$longest = length $tohere}}, $tohere
        if (length $tohere >= $longest);
      $tohere = substr($tohere, $idx + 1) . $char;
    } else {
      $tohere .= $char;
    }
  }
  push @{$longest{$longest = length $tohere}}, $tohere
    if (length $tohere >= $longest);
  return @{$longest{$longest}};
}