my ($name, $path, $suffix) = fileparse($fullname, qw(xls doc txt));