while (){ print map((s;$; ; && $_), grep(!$a{$_}++, split m;\s;,$_)); print "\n"; }