http://www.perlmonks.org?node_id=796771


in reply to parse file name

see File::Spec 

use File::Spec;

my ($volume, $directories, $file) = File::Spec->splitpath( $path );
my ($extension) = $file =~ /\.([^\.]+)$/;

[download]

In Section Seekers of Perl Wisdom