pokemon perl