I think there's a File::Basename module that works similar to the unix basename command which should be able to return the extension somehow, but my books a bit hazzy on how it works.