http://www.perlmonks.org?node_id=967637


in reply to Re: Extracting Page Name
in thread Extracting Page Name

... but has a (greedy) failure mode:

C:\>perl -e "my $url = 'http://www.perlmonks.com/index.pl?node_id=9674
+84'; my ($pagename) = $url =~ m{([^/]+)$}; print $pagename;"
index.pl?node_id=967484
C:\>

[download]

In Section Seekers of Perl Wisdom