( $name ) = ( $file =~ /(\w+(?:\.\w+)?)$/ ); # Note the $ which anchors to the end of string