eval `path_munch.pl`

##</code><code>##

#! /usr/bin/perl -w
my @newpath;
foreach (split /:/, $ENV{PATH})
{
   push @newpath, ... # however you do this
}
print 'export PATH=', join(':', @newpath), "\n";