use File::Basename;
($name,$path,$suffix) = fileparse($fullname,@suffixlist);