In trying to get something done a co-worker came up with this little regex:
perl -e '$a="abcde"x200;$a=~s{((\w+?)(??{!$b{$^N}++?"(?=)":"(?!)"}))}{($1)}xg;print "$a\n";' Basically, it creates a simple hash lookup of all the unique occurrences of the string. It's probably not practical for a whole lot, but it's still kind of cool. -- Alan