#!/usr/bin/perl -- use strict; use warnings; use Data::Dump; use LWP; my $str = q{GET /tree/16449623/hints?pid=20442759375&hf=Mtree&pn=1&hs=recent&msg=ntm&msgParams=7%7c15%7c22%7cUGhlYmUgQUxMWU5FfFJvYmVydCBISUNLUw2&mpid=20442759375&nec=2 HTTP/1.1},; dd $str; my $req = HTTP::Request->parse( $str ); dd $req; dd $req->uri; dd { $req->uri->query_form };