Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!rutgers!carssdf!usenet
From: usenet@carssdf.UUCP (UseNet Id.)
Newsgroups: comp.lang.perl
Subject: need perl help
Message-ID: <229@carssdf.UUCP>
Date: 4 Jan 90 00:06:44 GMT
Organization: C.A.R.S.,Middlesex,NJ
Lines: 13

I would like to remove pairs of a letter from a string.  After I remove
spaces & vowels, something like this:
  $a =~ tr/AEIOU/     /;
  $a =~ s/ //og;
I then would like to remove double letters something like
     wizzard  -->  wizard
This all goes toward building a key to compare names, addresses, etc... to
eliminate duplicates.

Does anyone have any ideas?   There's probably a more elegant way to remove
the vowels and spaces too, for that matter.

John Watson        ...!rutgers!carssdf!usenet