note ccn see [doc://File::Spec] <code> use File::Spec; my ($volume, $directories, $file) = File::Spec->splitpath( $path ); my ($extension) = $file =~ /\.([^\.]+)$/; </code> 796769 796769