perl Jcode