Reply to comment

#!/usr/local/bin/perl -w

$uptime = `uptime`;
$uptime =~ s/[ \n\t\f\s,]+/ /g;
$uptime =~ s/^[ \n\t\f\s]//;
chomp($uptime);

@array = split(/ /, $uptime);
while (@array) {
$thing = shift(@array);
print "$thing\n";
}