$file="C:/aplle/index.htm";
$file=~ s/.*[\/\\]//; # delete everything(!) upto the last / or \
print $file;