my ($method, $uri, $protocol) = $request_line =~ /(\V+) \040 (\V+) \040 (\V+)/x;

##</code><code>##

my ($method, $uri, $protocol) = $request_line =~ /(.+) \040 (.+) \040 (.+)/x;