Try this, altho I'd recommend using davorg's solution...

#!/usr/bin/perl -w

use strict;

my $url = "http://www.oreilly.com/catalog/lperl3/index.html";
my ($page) = $url =~ /.*\/([^\/]*)/;
print $page;
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.