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";