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