in reply to remove duplicates

How about: 
1 while $text =~ s/(\b(\w+)\b.*)\b\2\b\s?/$1/s;

[download]

-Blake

Replies are listed 'Best First'.
Re: Re: remove duplicates
by cruelty (Novice) on Oct 11, 2002 at 08:06 UTC
    absolutely brilliant !

    Thanks.
[reply]

In Section Seekers of Perl Wisdom