my $page = ($req =~ m/^(?:GET|POST|HEAD)\s*(.*?)\s/)[0];