in reply to removing duplicate letters
This seems to work:
The tr operator does what you want, except it squashes all duplicates, not just two. For reference though:s/(.)\1/$1/g;
tr/a-zA-Z//s;
In Section
Seekers of Perl Wisdom