#! /usr/pkg/bin/perl

open(TIME, "snmpget 192.168.100.1 public system.sysUpTime.0 |");
$line = <TIME>;
chop $line;
if ($line =~ m|^.+')'[\s\t]+(\w+),[\s\t]+(\w)$|)
{
        print "$1, $2\n";
}
close(TIME);


##</code><code>##

Unmatched ) in regex; marked by <-- HERE in m/^.+') <-- HERE '[\s\t]+(\w+),[\s\t]+(\w)$/ at ./uptime line 12.

##</code><code>##

SNMPv2-MIB::sysUpTime.0 = Timeticks: (2137215391) 247 days, 8:42:33.91