my $new = join ':', grep{ m[^/users/ctbld] } split ':', $ENV{path};