Re^2: Determining uniqueness in a string.

[kiat]

Wow.

Not quite sure how it works. Is it doing something like the code below?:

uniq ( '192345810' ) == 1 ? print "1\n" : print "0\n";

sub uniq {
   ($result) = ($_[0] =~ m[((.).*\2)]);
   print "result: $result; captured: $1\n";
}