in reply to Removing File Extensions
Look at File::Basename. This is a part of the Perl core.
--rjray