perl -ne 'my ($h, $w) = split; next unless $w; @l = split /\s+/, `ac -p $w`; printf "%20s: %5d logins %8s total time \n", $l[1], $h, $l[2];'

##</code><code>##

perl -ane 'next unless $F[1]; @l = split /\s+/, `ac -p $F[1]`; printf "%20s: %5d logins %8s total time \n", $l[1], $F[0], $l[2];'