PATH =`munch.pl $PATH`

##</code><code>##

setenv PATH `munch.pl $PATH`

##</code><code>##

#!/usr/bin/perl -w
use strict;
my @comp = split /:/,shift;
my %saw = ();
@saw{@comp} = ();
print join ":",keys %saw;

##</code><code>##

$ TEST="a:b:c:a:c:z:a:b:z"
$ echo $TEST 
a:b:c:a:c:z:a:b:z
$ TEST=`tmp/test.pl $TEST`
$ echo $TEST
a:z:b:c

##</code><code>##

> setenv TEST "a:b:c:a:c:z:a:b:z"
> echo $TEST
a:b:c:a:c:z:a:b:z
> setenv TEST `tmp/test.pl $TEST`
> echo $TEST
a:z:b:c