in reply to Removing repeated words
Update: Fri Sep 20 10:25:01 2002while (<stdin>){ print map((s/$/ / && $_), grep(!$a{$_}++, split m/\s+/,$_)); print "\n"; }
Whoops, forgot the \s+.. And switch the regex delims by request.
In Section
Seekers of Perl Wisdom