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