/bin/ps -axwwo command= | perl -pe '$_="" if ! /\.app\/Contents/ ; $_ = m{([^/]+\.app)/} ? "$1\n" : ""'