Select Code to Download

use File::Basename qw(fileparse);
...
my ($word, $path, $ext) = fileparse($filename, qr/\..*/);