my $uptime = `uptime`;
if ($uptime =~ /^\s+\S+\s+up\s+(\S+\s+\S+,\s+\S+),/) {
    print $1;
}
else {
    print "uptime gave me a weird format!";
}