今天碰到一道 Perl 的题目 , 以前没有接触过 Perl , 所以这里专门记录下来 I-got-id-20…