my ( $filename ) = ( $path =~ /(\w+(?:\.\w+)?)$/ );