Perl Code for Processing Yujian Data