Help for this page

Select Code to Download

Select or download this

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

# or...
#$string =~ tr/A-Za-z0-9//s;
$string =~ tr///sc;           # update: use this instead