perl -pale '$_="@{[grep !$s{$_}++, @F]}"' #### my %seen; print join(' ', grep !$seen{$_}++, split), "\n" while ;