my @output = `repquota -a`;
{
	my    $status = $? >> 8;
	local $"      = "\n"; # "
	die "'repquota -a' returned bad status: $status\nOutput: @output" if $status;
}

splice( @output, 0, 5 );

my @user = grep { defined $_ } map { /^(\S+)/ ? $1 : undef } @output;