my ($method, $uri, $proto, @extra) = split /\s+/, $request;
die "Unexpected extra bits in request: @extra" if @extra > 0;
die "No method" unless defined $method;
# Or whatever other error-handling mechanism you want