perl -e '$u = `uptime`; print join("\n",(split(/\s{2,}/,$u)));'