$fullname = "C:\\apple\\index.htm";
my ($file) = $fullname =~ m!([^/\\]+)$!;
print $file;

##</code><code>##

use File::Basename; # I ain't afraid of no ghosts..
$fullname = "C:\\apple\\index.htm";
my $file = basename $fullname;
print $file;