use File::Basename;

# your code here

my ($name, $dir, $extension) = fileparse ($theActualFile, '\..*');