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