my $count = my ($arg1, $arg2, $arg3) = split /\s+/, $argstring; $count == 3 or die "3 arguments expected; you supplied $count\n";