perl identify the components of a url