$request = HTTP::Request->new(GET => qq|$1/$split[1]|)
                                          ^