Use URI::URL:

use strict;
use URI::URL;

my $a = 'http://www.ash.com/ed/example/one.html';
my $url = URI::URL->new($a);
my $path = $url->path();
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated