is right about using String::Approx to get this done. But be forewarned: String::Approx runs about as fast as a one-legged dog. I don't remember how much slower (the info is in the Perl Cookbook which I can't find since I moved, sniff, sniff), but I seem to recall it's something like 10 times slower than a typical regex. Thus, you don't want to use if if you can avoid it, and if you can't, try to avoid iterating over it.
Update: kudra has her copy of the Cookbook (I'm so jealous) and says that it is 10-40 times slower. If she's wrong, we'll all just fly over to the Netherlands and have a little "chat" with her about supplying us with innacurate data. Then we'll party.