my ($tot)= grep /Total/, qx[sysutil]; print $tot; # Should already include "\n"