my $uptime = '  9:12pm  up  2:13,  5 users,  load average: 0.84, 0.62, 1.03';
my ($keep) = ( $uptime =~ /up\s+(.+),\s+\d+\s+users/);