This is probably the safest way:

use URI;
$uri = URI->new('http://domain.com/myurlinfo/mypage.html');
print(($uri->path_segments())[-1], "\n");
# prints "mypage.html"
[download]

Note that the slashes in the example URL you provided are leaning the wrong way and it doesn't have a domain even though it has a scheme. Mistakes like these and subtler ones are the reason it's usually better to use modules for parsing. The people who wrote the modules payed attention to the specs and the various possible formats.

#!/usr/bin/perl
use strict;
use warnings;
use URI;

my $uri = URI->new( 'http://www.foo.com/asdf/blah/bar.html' );
print +($uri->path_segments)[-1];
[download]

my $page;
$something =~ m!([^/!]*$)! and $page = $1;
[download]

#!perl

use strict;
use warnings;

my $myfetch = 'http:\\myurlinfo\mypage.html';
$myfetch =~ m!([^/!]*$)! ?
   print $1 :
   print 'Whoops...';
__END__
Unmatched [ in regex; marked by <-- HERE in m/([ <-- HERE ^// at (eval
+ 1) line 7.
[download]

Probably you meant

#!perl

use strict;
use warnings;

my $myfetch = 'http:\\myurlinfo\mypage.html';
$myfetch =~ m!([^\\]+)$! ?
   print $1 :
   print 'Whoops...';
__END__
mypage.html
[download]


Cheers,
CombatSquirrel.

---

Entropy is the tendency of everything going to hell.

Oops, no I mean m!([^/]*$)! sorry.
Boris

myfetch =~ /.+\\(.+)/;
[download]

Also note that the $1 doesn't go in the match itself; you would use it later, perhaps by assigning it to a variable.

Update: added the first .+ to the regex

TheEnigma

$url = 'http:\\myurlinfo\mypage.html';
($myfetch) = $url =~ /([^\\\/]+)$/;
[download]

($pagename) = $myfetch =~ /http:\\\\.*\\([^\\]*)$/;
[download]

Thanks for all your quick replies!