Re: Remove repeated characters from a string

[knew]

This bit of code will do the job:

$string =~ s/(.)\1/$1/g

Alternatively, if you want to ignore case when comparing, you could use:

$string =~ s/(.)\1/$1/gi

And finally, if you wanted to trim any number of duplicates down to a single letter, this would work:

$string =~ s/(.)\1+/$1/gi

[Anonymous Monk]

the duplicates are not nesscarly beside each other

where = wher

Expressions = Expresion

Finished = Finshed

indicated = indcate

[knew]

This will do that for you:

1 while $string =~ s/(.)(.*)\1/$1$2/g

[aramisf]

This construction with the while loop made my day. Thanks a lot, sir knew! :D

[EdwardG]

If you had put more effort into your first question you would not now be explaining what you really meant.