Perl: 删除字符串中的重复字符

如果我们有一个字符串，如'1122311223451'，我们想要去除其中重复出现的字符，并且保持每个字符第一次出现的次序，对于这个例子，它的结果就是'12345'，如何实现呢？

方法可能有很多， 在这里推荐一种只需要一行代码的方法如下：

while ($string =~ s{((.).*)\2+}{$1}xsmg) {};