On Tue, Oct 30, 2001 at 03:22:33PM -0800, John W. Krahn wrote: > $ perl > -le'$_="DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN";tr/A-Za-z//s;print' > DESCRIPTION
Ah, that was a good try, but what happens when you have: SSSSEEEETTTTTTTTIIIINNNNGGGG A better solution would be: s/(.)\1{3}/$1/g; As in: perl -wle '$_ = shift; s/(.)\1{3}/$1/g; print' SSSSEEEETTTTTTTTIIIINNNNGGGG Michael -- Administrator www.shoebox.net Programmer, System Administrator www.gallanttech.com -- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]