Not showing the file extensions is a function of the graphical user interface (GUI) and has no influence on what perl (or other) scripts see. A script will even see some files that are not shown at all in the GUI

You might use the module File::Basename to extract the suffix