( $extension ) = $string =~ /\.([^.]*)$/;