在perl中,我们可以通过uc,lc,\U,\L来修改变...