+x ai perl