$name,$path,$suffix) = fileparse($fullname,qr/\..*/);