#!/bin/sh
attach | perl -ne 'if ((! /^filesystem/)&&(! /^-----/)&&( (@dir=split(/\s+/))[2] !~ /bert|root/ )) {system "detach $dir[1]";}'