$extension = (split /\./, $string)[-1];