Help for this page
my ($method, $uri, $protocol) = $request_line =~ /(\V+) \040 (\V+) \04 +0 (\V+)/x;
my ($method, $uri, $protocol) = $request_line =~ /(.+) \040 (.+) \040 +(.+)/x;