use File::Basename;
my($filename, $dir, $suffix) = fileparse($path);