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