print join ":", grep { m{^/users/ctbld/} } split /:/, $ENV{INCLUDE};