$string=`uptime`; $string=~/.*?up (.*?,.*?),/; print "$1\n";