use strict;
use URI::URL;

my $a = 'http://www.ash.com/ed/example/one.html';
my $url = URI::URL->new($a);
my $path = $url->fragment();
print "$path \n";

##</code><code>##

my $ENTRY = "http://www.asd.com/123/456/789/";
$ENTRY =~ /http\:\/\/www\.asd\.com\/(\d+)\/(\d+)\/(\d+)\\"/;

		my($u_com, $name, $entry) = ($1, $2, $3);
		print "1 $u_com \n";
		print "2 $name \n";
		print "3 $entry \n";