http://www.perlmonks.org?node_id=8594


in reply to parsing output of uptime

$uptime=`uptime`; $uptime =~ s/.*(\d+:\d+).*/$1/;