You can also use File::Basename to find the filename, directory, extension:

my ($name, $dir, $ext) = fileparse($filepath, '\..*');
[download]

-- vek --